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Introducción 


La Inteligencia Artificial es, sin duda, un campo de creciente impor- 
tancia en el desarrollo de los ordenadores que tendrá efectos pro- 
fundos en nuestras vidas en las próximas décadas. El objetivo prin- 
cipal de este libro es introducir al lector en algunos de los conceptos 
relacionados con la Inteligencia Artificial y mostrarle cómo elaborar 
rutinas «inteligentes» en el BASIC de Sinclair que puedan después 
incorporarse a sus propios programas. Se supone que sólo se posee 
un conocimiento superficial del BASIC y el libro parte de principios 
fundamentales ya que pensamos que ello es esencial para conocer los 
problemas de la creación de inteligencia y la forma de resolverlos. 

La organización básica del libro se apoya en la elaboración de 
las ideas y de las rutinas consiguientes, paso a paso, explorando y 
comparando las posibilidades alternativas siempre que es posible. 
En lugar de limitarnos a proporcionar una serie de programas com- 
pletos, preferimos estimular al lector a que experimente con enfoques 
diferentes para que pueda ver los resultados por sí mismo. Se incluyen 
diagramas de flujo detallados de la mayoría de las rutinas, destacan- 
do los aspectos de Inteligencia Artificial y hemos evitado, por con- 
siguiente, recargar las presentaciones en pantalla ya que, de esta 
forma, se oscurece el significado del programa. En algunas ocasiones 
se advertirán líneas redundantes que se han incluido deliberadamente 
para la mejor claridad del programa. Se ha evitado todo lo posible 
la reconstrucción de las líneas habiéndose preferido hacer modifica- 
ciones en ellas. Todos los listados se presentan en la misma forma 
en que han de verse en la pantalla. En la mayoría de los casos se 
han utilizado profusamente espacios y paréntesis para facilitar la 
lectura de los listados aunque ha de tenerse cuidado si se piensa en 
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suprimirlos ya que algunos son esenciales. Se han utilizado letras ' 
mayúsculas pues pensamos que así se leen mejor los listados pero, 
si se desea, pueden utilizarse igualmente las minúsculas. Recuérdese, 
sin embargo, que las cadenas en mayúsculas no son comparables con 
las que están en minúsculas por lo que han de manejarse en forma 
coherente. Todas las rutinas han sido comprobadas rigurosamente, 
así como el listado en general, por lo que confiamos en que no se 
encontrarán fallos. Es un hecho triste y real en la vida que la ma- 
yoría de los fallos se derivan de errores de escritura. Los puntos y 
coma, así como las comas, pueden parecer elementos del léxico in- 
significantes pero su ausencia produce efectos profundos. 

La Inteligencia Artificial está adquiriendo más importancia cada 
día y esperamos que este libro proporcione al lector una visión útil 
del tema y si realmente lo trabaja en profundidad, ¿quién sabe?, ¡a lo 
mejor es capaz de persuadir a su máquina a que lea por sí misma 
nuestro próximo libro! 

Nuestro sincero agradecimiento a Valerie James que escribió y 
probó la mayor parte de los programas que fueron trasladados de 
los originales para el ordenador Commodore 64/Dragón al BASIC 
de Sinclair para esta versión. También tenemos que manifestar nues- 
tro reconocimiento una vez más a Liz, que ya sabe sobre ordenadores 
lo suficiente como para dominar los controles de un horno de micro- 
ondas para que nuestro café esté a la temperatura correcta mientras 
ella espera pacientemente a que alguien invente un androide que 
pueda tirar la bolsa de la basura. 


Keith y Steve Brain 


Groeswen 


1 


La Inteligencia Artificial 
y sus interpretaciones 


Durante generaciones los escritores de ciencia ficción han imagl- 
nado el desarrollo de máquinas inteligentes que pudieran realizar 
muchas de las actividades humanas e incluso superarlas en algunos 
campos. La Inteligencia Artificial se ha visto alentada por estas imá- 
genes. La visión más común de un robot es la de una máquina 
inteligente, generalmente con forma humana, que es capaz de ejecutar 
por sí misma las instrucciones que se le dan en términos vagos. 

En la opinión pública se ha desarrollado una posición de descon- 
fianza hacia las nuevas tecnologías. Por tanto, no es de extrañar que, 
en las primeras narraciones sobre estos temas, los robots tuvieran 
muy mala prensa y desempeñaran siempre el papel de los «malos» 
tradicionales, con el agravante de ser casi invencibles y manifestar 
una total falta de escrúpulos. El clarividente Isaac Asimov urdió una 
larga serie de historias alrededor de su concepto de los «robots po- 
sitrónicos» y fue probablemente el primer autor que se enfrentó con 
la realidad de esta situación. Estableció sus famosas «Tres Leyes de 
la Robótica» que definen las reglas fundamentales según las cuales 
ha de funcionar cualquier máquina capaz de realizar una acción in- 
dependiente pero es interesante observar que no pudo predecir en 
qué momento la especie humana aceptaría la presencia de tales robots 
en la Tierra. 

«La Guerra de las Galaxias» introdujo los robots especializados 
R2D2 y C3PO aunque creemos que muchas de sus características eran 
un poco extrañas. Quizás existía una Unión Interplanetaria de Robots 
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con una normativa de los campos de actividad de los mismos que im- 
pedía la comunicación directa entre humanos y R2D2. En «The 
Stepford Wives» («Las Esposas de Stepford»), los maridos se reúnen 
y tienen la «buena idea» de convertir a sus esposas' en androides 
que, en forma automática, hagan exactamente lo que se esperaba 
de ellas. Sin embargo, en la segunda parte de la obra, se revelan los 
peligros que entraña la exigencia de incrementar constantemente los 
estímulos externos. Quizás una esperanza para la Humanidad es que 
cualquier alienígeno que nos amenace no haya visto «Battlestar 
Galactica» y, por tanto, construya los robots de tipo Cylon que, 
como los viejos Invasores del Espacio, siempre acaban siendo derro- 
tados, ya que su conducta es totalmente previsible. 

Por supuesto que los ordenadores inteligentes también aparecen 
como cajas sin brazos ni piernas, aunque las luces intermitentes 
parecen obligatorias. Las entradas y salidas deben ser obviamente 
orales aunque ya ha pasado de moda la vieja voz metálica sustituida 
por una personalidad algo más definida. Si todas las cajas se parecen, 
debe ser una buena idea pero, por favor, no acepten todo el sonido 
del «Sargento Mayor Cero» de la película «Terrahawks». «Kitt» de 
Michael Knight («El coche fantástico» en TVE), suena como una 
especie de máquina razonable con la que conversar, y resulta verda- 
deramente preferible a la untuosa voz de «Slave» y del aborrecible 
«Orac» de «Blake?s Seven». «Orac» parecía acumular un tremendo 
desdén en aquella pequeña caja pero otros escritores han apreciado 
las dificultades que pueden surgir si se hace que la personalidad de 
una de esas máquinas sea muy parecida a la del hombre. 

En «Odisea en el Espacio: 2001», de Arthur C. Clark, el orde- 
nador de máxima inteligencia «Hal» tiene, al final, una «crisis ner- 
viosa» cuando se enfrenta a tantas responsabilidades. Sin embargo, 
en «Dark Star» la bomba inteligente se sentía feliz discutiendo sobre 
Existencialismo con el capitán Doolittle, aunque no aceptaba desviar- 
se del tiempo programado de detonación cuando aún se hallaba si- 
tuada en su alojamiento. En «The Restaurant At The End of The 
Universe» («El Restaurante del Fin del Universo») se reduce signifi- 
cativamente el valor del «Sirius Cybernetics Corporation Happy Ver- 
tical People Transporter» (Transportador Vertical de Gente Feliz de 
la «Corporación Cibernética Sirio»), cuando rehusa subir ya que 
podía ver el futuro y si se elevaba probablemente sería atrapado. Y el 
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Smtetizador de Bebidas «Nutri-Matric» había sido obviamente dise- 
nado por la «British Rail Catering» ya que siempre producía una 
bebida que era «casi, aunque no enteramente, distinta al te». 

También han aparecido recientemente temas más preocupantes. 
lo más inquietante de la obra «Wargames» (Juegos de Guerra) no 
cs que alguien pueda introducirse en «Joshua» (el Ordenador del De- 
partamento de Defensa de Estados Unidos) sino que, una vez la 
máquina ha empezado a jugar a lá guerra termonuclear, no se puede 
parar hasta que haya un vencedor. En «The Forbin Project» («El 
Proyecto Forbin») los ordenadores de Rusia y de los Estados Unidos 
se unen y deciden que los humanos son insignificantes. Por supuesto, 
si usted es Marvin, el Androide Paranoico, y tiene el cerebro del 
tamaño de un planeta y posee una auténtica personalidad humana, 
podría lograr la victoria sin armas, confundiendo sencillamente al 
cnemigo para que provoque su propia destrucción mientras trata 
sus problemas personales. 


La debatida definición de la Inteligencia Artificial 


La definición y el reconocimiento de la inteligencia de las máqui- 
nas han sido debatidos con cierto encrespamiento entre los expertos 
en el tema. La definición más generalmente aceptada es la que fue 
propuesta por Alan Turing, a finales de los años 40, cuando los or- 
denadores eran del tamaño de una casa y más raros de lo que es hoy 
una regla de cálculo. En lugar de tratar de establecer una serie de 
criterios a los que someter las definiciones, tomó una visión más 
amplia del problema. Razonó de la siguiente manera: la mayoría de 
las personas aceptan el hecho de que sus semejantes, en general, son 
inteligentes. Por tanto, en el momento en que una persona es incapaz 
de determinar si se está relacionando con otra persona o con un or- 
denador, necesariamente ha de aceptar que es inteligente la máquina 
con la que se relaciona. Esto constituye la base de su famosa «Prueba 
de Turing», por la que un operador ha de.mantener una conversa- 
ción con otra entidad a través de un teclado y tratar de lograr que 
la otra parte revele si se trata realmente de una máquina o bien de 
otro ser humano. 

Circulan muchas historias de ficción sobre esta prueba pero la que 
preferimos es una en la que un aspirante a un cierto trabajo se 
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sienta frente a un teclado y se le deja solo. Al comprender la im- 
portancia que la prueba tiene para su carrera, lucha valientemente 
para encontrar el secreto, sin conseguir éxito, al menos aparente- 
mente. Sin embargo, después de algún tiempo, el entrevistador le 
llama y, estrechando su mano, le felicita con estas palabras: «Buen 
trabajo, amigo, la máquina no ha podido decir si ha tratado con un 
hombre por lo que usted es lo que necesitamos como Inspector 
Fiscal de Su Majestad». 


la inteligencia mínima de los robots 


Todos hemos visto en los anuncios de la televisión que las técnicas 
de diseño asistidas por ordenador se hallan ahora muy difundidas 
y que los robots industriales son los únicos protagonistas de las líneas 
de producción de automóviles (lo que da lugar a los adhesivos que 
se ponen en las ventanillas de los coches con la expresión: «Diseñado 
por ordenador, construido por un robot y conducido por un idiota»). 
En realidad, la mayoría de estos robots industriales son de inteligen- 
cla mínima ya que se limitan a seguir unas operaciones predefinidas 
sin hacer nada que pueda considerarse una toma real de decisiones. 
Incluso el impresionante robot que pinta por difusión y que se limita 
a seguir unas pautas aprendidas de los movimientos manuales que un 
operador humano obliga a realizar a sus brazos mecánicos, no puede 
aprender a ejecutar otra tarea en un nuevo objeto, sin ulterior in- 
tervención humana. 

Por otra parte, la siguiente generación de robots tendrá sensores 
más complicados y mejor programación lo que les permitirá deter- 
minar la forma, el color y la textura de los objetos, tomar decisio- 
nes más racionales. El que haya visto reportajes de los legendarios 
concursos de «Micromouse» («Micro-ratón»), donde un repulsivo bi- 
cho se escapa para meterse en el centro de un laberinto, no se verá 
sorprendido por nuestra fe en el futuro del robot inteligente aunque 
no parece muy importante dotarle de dos brazos y dos piernas. 


l.a Inteligencia Artificial en los sistemas expertos 


Otra interesante área en la que se explota la Inteligencia Artificial 
cs en el campo de los sistemas expertos, en muchos de los cuales 
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se pueden obtener logros tan buenos o mejores que los de los huma- 
nos experimentados, especialmente si se piensa en la predicción del 
tiempo. Estos sistemas pueden ser expertos en cualquier número de 
cosas pero, en especial, en el campo del diagnóstico y tratamiento 
médico, donde están adquiriendo creciente importancia. La profe- 
sión médica no debe preocuparse demasiado ya que siempre quedará 
espacio para ellos, puesto que los «ordenadores no podrán aso- 
clarse». 

Una barrera importante que se opone a una mayor utilización de 
los ordenadores es la ignorancia y tozudez de los usuarios que sólo 
leen las instrucciones como último recurso y que esperan que la má- 
quina sea capaz de comprender sus pequeñas peculiaridades. El tra- 
tamiento del «lenguaje natural» es, por consiguiente, una de las ma- 
yores áreas de crecimiento y la «quinta generación» de ordenadores 
será mucho mejor recibida por los usuarios. 

La mayor parte del trabajo serio sobre Inteligencia Artificial uti- 
liza lenguajes más adecuados que el BASIC (aunque más complejos), 
tales como el LISP y el PROLOG, que son completamente ininteli- 
gibles para el usuario medio y que probablemente no estén disponi- 
bles para su microordenador doméstico. Las rutinas en BASIC que 
siguen no le darán, por consiguiente, la clave para dominar el Mundo 
aunque le permitirán adquirir una razonable apreciación de las posi- 
bilidades y problemas que presenta la Inteligencia Artificial. 
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Ordenes eficaces 
para el ordenador 


Puesto que su ordenador carece completamente de inteligencia 
sólo se puede conversar con él a base de términos muy sencillos. 
El primer paso, utilizado en muchos juegos de aventuras no com- 
plicados, es disponer de una serie de órdenes predeterminadas para 
las que hay respuestas fijas. Empecemos por echar una mirada a 
ciertas direcciones de la brújula en las que tenemos que movernos. 
A primera vista, la forma más sencilla de programar esto parece 
ser la de pedir un dato de entrada, mediante la instrucción INPUT 
al usuario y escribir una línea condicional (1IF-THEN) para cada po- 
sibilidad (véase el Diagrama de flujo 2.1). 


10 REM ELABORACION DEL SIGNO D 
E ABRIR INTERROGANTE 
20 REM LA LETRA "1" QUE PRECED 
E A LA FRASE INTERROGATIVA SE HA 
DE PULSAR EN LA MODALIDAD DE GR 
AFICOS ¿CAPS SHIFT Y 9). NO OLUI] 
DE PASAR A CONTINUACION AL MODO 
NORMAL ¿PULSANDO 9) 
30 RESTORE 30: FOR N=1 TO 7: R 
EAD A: POKE LUSR "I"+N,A: NEXT N: 
DATA 2,0,2,14,14,17,14 
100 PRINT “"IQUE DIRECCION?" 
120 INPUT 1% 
15 


200 1F Ié$="NORTE" THEN PRINT " 


NORTE” 

210 IF I$*="SUR" THEN  PRINT "su 
pp" 

220 1F 1$*="0ESTE"” THEN PRINT " 
OESTE" l 

230 IF I$="ESTE" THEN PRINT "E 
STE" 


232 REM LA INSTRUCCIÓN QUE SIGU 
E ES PARÁ SALIR DEL CICLO 

235 IF I$="F" THEN STOP 

250 60 TO 100 


INTRODUCIR 
DIRECCION 
Si IMPRIMIR 
«NORTE» 
O o 
Si IMPRIMIR 
21 «SUR» 
Si IMPRIMIR 
«OESTE» 
NO E 
si IMPRIMIR 
«ESTE» 
NO A 


Diagrama de flujo 2.1. Las direcciones de la brújula 


Si se hace una entrada distinta a los cuatro puntos cardinales no 
se imprimirá nada excepto otra petición de datos. Sería mejor que el 
ordenador indicase con más claridad que la orden no es válida. Esto 
podría resolverse incluyendo un medio de comprobar que no se ha 
encontrado el comando dictado pero pudiera ser excesivamente largo 
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c incluso imposible cuando haya una lista con demasiadas palabras 
válidas. 


¿290 1F I*<o:"MORTE"AND 1%<>" SUR" 
AND Ié$<>"OESTE"AND I$<>"ESTE" THE 
HN PRINT "PETICIÓN NG VALIDA" 


Añadiendo, por otra parte, GO TO 100 al final de cada línea con 
la instrucción condicional IF-THEN, se forzaría un salto atrás a la 
primera que solicita datos cuando el ordenador detectase una orden 
realizable. Si ninguna de las condiciones se cumple, se llega a la lí- 
nea 240 que hace la advertencia de la invalidez. de la orden. Los re- 
tornos directos cuando se encuentra la palabra es una buena idea de 
cualquier modo ya que evita que se hagan búsquedas innecesarias 
cuando ya se ha encontrado lo que se buscaba (véase el Diagrama 


de flujo 2.2). 
DIRECCION 


IMPRIMIR 
«NORTE» 


IMPRIMIR 
«SUR» 
IMPRIMIR 
«OESTE» 
IMPRIMIR 
«ESTE» 


IMPRIMIR 
«NO VALIDO» 


Diagrama de flujo 2.2. Eliminación de pruebas innecesarias 
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200 IF I$="NORTE"THEN PRINT "NO 
RTE":60 TO 100 

210 IF I$="SUR" THEN  PRINT "SU 
R": GO TO 100 

220 1F I$="0ESTE" THEN PRINT " 
DESTE": GQ TO 100 

230 IF I$="ESTE" THEN PRINT "E 
STE": 60 TO 100 

290 PRINT *PETICION NO VALIDA" 


El empleo de variables enteras, una opción preferente 


Con todo esto se logrará presentar de nuevo en la pantalla la 
palabra que se había puesto pero, en realidad, no conseguimos nada 
nuevo. Como modelo con el que trabajar, empezaremos en una posi- 
ción definida por X = 0e Y = O e indicaremos el movimiento con 
un más o un menos en relación a este punto. Obsérvese que se uti- 
lizan variables enteras siempre que es posible dado que su tratamiento 
es más rápido que el de los números reales. Con esto se elimina la po- 
sibilidad de conflicto con las variables reservadas. 


10 LET X=0:LET Y=0 


Ahora hemos de añadir la respuesta real al comando, así como el 
mensaje indicando que se ha comprendido (véase el Diagrama de 
flujo 2.3). 


¿00 1F I$="NORTE"THEN PRINT "NO 
RTE":¿LET Y=Y-1:60 TO 100 

210 IF I$="SUR" THEN PRINT "SU 
R": LET Y=Y+1: GO TO 100 

220 IF I$="0ESTE" THEN  PRINT " 
OESTE": LET x=xX-1: GO TO 100 

¿20 IF I$="ESTE" THEN PRINT "E 
STE": LET x=x+*1: GO TO 100 
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DAR VALOR 
AXeY 
IMPRIMIR ñ 

XeY 

INTRODUCIR 

DIRECCION 


IMPRIMIR 
«NORTE». 


IMPRIMIR 
«NO VALIDO» ¡ 


Diagrama de flujo 2.3. La incorporación de una respuesta 


Esta modificación muestra realmente la posición adecuada con 
respecto al origen. Así, para ver qué está sucediendo y dónde se en- 
cuentra uno, se añadirá un mensaje con la posición del momento: 


110>PRINT "XxX" Xx," Y" Y 
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Utilización de subrutinas 


Por supuesto que se trataba de un ejemplo muy sencillo pero 
cuando los resultados de la acción son más complicados, es mejor 
poner las respuestas en subrutinas. 


200 IF I$="NORTE"THEN GO SUBE 20 
Q0:LET Y=Y-1:G60 TO 100 | 

210 1F 16="SUR" THEN GO SUB 20 
00: LET Y=Y+1: GO TO 100 

220 1F Ié$="0ESTE" THEN GO SUB 
2000: LET X=X-1: GO TO 100 

230 1F I$="ESTE" THEN GO SUB 2 
000: LET X=X+1: GO TO 100 

2000 PRINT "IR AL NORTE":* LET Y= 
Y-1: RETURN 
2100 PRINT "IR AL SUR": LET Y=Y+ 
1: RETURN 
2200 PRINT “IR AL OESTE": LET x= 
X-1: RETURN 
2300 PRINT "IR AL ESTE": LET X=X 
+1: RETURN 


l.a eficacia de las subrutinas de acción 


Se puede extender la utilización de las instrucciones condicionales 
Il" “THEN ad infinitum (o mejor, ¡ad memoriam finitum!) pero viene 
1 ser una manera complicada de hacer cosas que crea problemas 
cuando se desea realizar programas más complejos. Una forma más 
elegante de hacerlo con comandos y respuestas, es introducirlos en 
imstrucciones DATA y después leerlas, mediante la instrucción READ, 
cuando sea necesario. Si se ponen tales comandos y respuestas por 
parejas en las instrucciones DATA, es más difícil que se mezclen y 
resulta más fácil su lectura (véase la Tabla 2.1). 


000 DATA "NORTE","IR AL NORTE", 
"SUR", "IR AL SUR","OESTE","IR ÁL 
OESTE" ,"ESTE","IR AL OESTE" 


COMANDO RESPUESTAS 


(C$) (R$) 

NORTE IR HACIA EL NORTE 
SUR IR HACIA EL SUR 
OESTE IR HACIA EL OESTE 
ESTE IR HACIA EL ESTE 


Tabla 2.1. Comandos y respuestas 


Todas las instrucciones condicionales IF-THEN pueden sustituirse 
ahora por un sencillo bucle que compara las entradas con cada 
comando, leyendo, mediante la instrucción READ, cada uno de estos 
elementos de la instrucción DATA correspondiente en la variable C$ 
(véase el Diagrama de flujo 2.4) y poniendo en pantalla la respuesta 
oportuna por medio de R$ si la comparación es positiva. Obsérvese 
que el «puntero» de los datos debe restaurarse (RESTORE) para que 
siempre se empiece a leer, mediante la instrucción READ, desde el 
primer elemento de la lista de datos. 


a RESTORE :FOR N=1T0O 4 
( READ C$,R$: 


O 
1 
20 1F Ié=C% THEN PRINT Fs$: Gu 
a 100 

30 NEXT NH 


ta ni Nina 


Si la entrada ahora, 1$, es igual a un determinado comando, el 
programa salta del bucie después de presentar en pantalla la respues- 
ta adecuada (R$). 

En realidad nos volvemos a encontrar como aníes, sin haber he- 
cho nada, por lo que necesitamos poder llamar estas subrutinas de 
acción. En primer lugar, preparemos la salida del bucle si la compa- 
ración es positiva para ir a una subrutina nueva en la línea 300. 


el IF I$=C$THEN PRINT R$:G60 TO 
3 
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Diagrama de flujo 2.4. Introducción de mejoras 


Todavía tenemos un «puntero» para indicar la palabra que se 
adapta al comando de entrada ya que N (el número de los elementos 
DATA comprobados) mantiene su valor. Podemos utilizar esto para 
acudir a las rutinas adecuadas que son similares a las que pusimos 
anteriormente con la diferencia de que no hay necesidad de definir 
cl mensaje particular que ya se ha presentado con la variable alfa- 
numérica R$. 


300 IF N=1THEN GG SUB 2000 
301 IF N=2 THEN GO SUB 2100 


302 IF N=3 THEN GO SUB 2200 
303 1F N=4 THEN GO SUB 2300 
302 60 TO 100 

2000 LET Y=Y-1: RETURN 

2100 LET Y=Y+1: RETURN 

2200 LET X=x-1: RETURN 

2300 LET X=X+1: RETURN 


La ampliación de vocabulario 


La lista de datos se puede ampliar para contener más palabras. 
Por ejemplo, es posible añadir direcciones intermedias de la brújula 
que cambien los ejes X e Y, 


2010 DATÁ "NORESTE","IR AL NORES 
TE" ,"SURESTE","IR AL SURESTE" 

7020 DATÁ "SUROESTE" ,"IR AL SURO 
ESTE","NOROESTE","IR AL NOROESTE 


y agregar algunas subrutinas más (téngase en cuenta que el bucle de 
exploración de los datos también debe incrementarse): 


200 RESTORE : FOR N=i TO 8 

304 IF N=5 THEN 0 SUB 2400 
305 IF N=4 THEN O SUB 2500 
306 IF N=7? THEN GO SUB 2400 
307 IF N=8 THEN GO SUB 2700 
2400 LET Y=Y-1: LET X=X+1: RETUR 


2500 LET Y=Y+1: LET X=x+1: RETUR 
2600 LET Y=Y+1: LET X=x-1: RETUR 


2700 LET Y=Y-1: LET x=x-1: RETUR 
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Método para eliminar redundancias 


Hasta ahora todas las respuestas han incluido la palabra «IR» 
que se ha puesto en cada elemento de la declaración DATA. No per- 
judica la práctica de escribir en el teclado pero sería mucho más fácil 
definir esta palabra común como una variable de cadena. Obsérvese 
que se incluye un espacio al final para separarla de la palabra si- 
guiente. 


20 LET G$="IR AL " 


Se puede pues eliminar la palabra repetida y, en su lugar, poner 
(1$ a continuación del comando. 


210 1F I$=C$THEN PRINT G$¡R$:G0 
Ta 300 

2000 DATA "NORTE", "NORTE", "SUR", 
"” Sur" ; $“ OESTE" , " DESTE" , Úu ESTE" , "ESG 
TE" 

7010 DATA "NORESTE", "NORESTE","S 
URESTE" , "SURESTE" 

9020 DATA “SUROESTE”, "SUROESTE", 
"NOROESTE", "NOROESTE" 


Esto está empezando a parecer bastante tonto ya que ambas ma- 
trices (arrays) ahora contienen exactamente las mismas palabras. 
¿Por qué no desechar la palabra respuesta, R$, y poner simplemen- 
te CS? Bien, en este caso, pudiera hacerse sin ningún problema pero 
cuando la contestación no es una simple repetición del comando de 
entrada (como ocurre con frecuencia), resulta esencial la segunda pa- 
labra o frase. 

Si se examinan más cuidadosamente todas estas subrutinas, se 
apreciará que hacen solamente una cosa: actualizar los valores de X 
c Y. ¡Podríamos incluir esta información en los datos originales y 
desprendernos de ellos conjuntamente! Necesitamos añadir los valores 
apropiados de las coordenadas X e Y en las líneas de los datos des- 
pués de cada respuesta y leer, mediante la instrucción READ, esta 
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información en bloques de cuatro (ENTRADA, RESPUESTA, MO- 
VIMIENTO EN X, MOVIMIENTO EN Y). Véase la Tabla 2.2. 


MOVIMIENTO MOVIMIENTO 


COMANDO RESPUESTA ENX EN Y 
C$ R$ XU YU 
NORTE NORTE 0 —] 
SUR SUR 0 ] 
OESTE OESTE —] O 
ESTE ESTE 1 O 
NORESTE NORESTE 1 —1 
SURESTE SURESTE 1 1 
SUROESTE SUROESTE — —1 

NOROESTE NOROESTE — —1 —1 


Tabla 2.2. Movimientos en X e Y incorporados a los datos 


2000 DATA "NORTE", "NORTE",0,-1," 
SUR","SUR",0,1,"O0ESTE", "OESTE" ,- 
1,0 

2010 DATA "NORESTE", "MORESTE",1, 
-1, "SURESTE", "SURESTE",1,1 

2020 DATÁ "SUROESTE", "SUROESTE", 
-1,1,"NOROESTE", "NOROESTE" ,-1,-1 


Ahora podemos borrar las líneas 300 a 2700 y modificar la 210 
y 220 para que X e Y se actualicen aquí (véase el Diagrama de flu- 
jo 2.5). 


210 READ C$,R+$,XU,YU 
220 IF I$=C0$ THEN  PRINT G$;R*: 
LET Xx=x+XU: LET Y=Y+YU: GO TO 1 
00 


Este modelo general de poner toda la información de forma enca- 
denada es un rasgo común que se utilizará varias veces en programas 
ulteriores de este libro. 
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Diagrama de flujo 2.5. Utilización de datos enlazados 


Comandos abreviados 


Hasta ahora hemos utilizado palabras completas como comandos, 
pero esto significa que hay que escribir mucho para dar instruccio- 
nes al ordenador. Si resulta pesado, se puede pensar en cambiar 
las palabras enteras por su inicial y, en consecuencia, entrar median- 
te la instrucción INPUT, una sola letra. Sin embargo, a menos que 
se utilicen letras aleatorias, el problema irá bien hasta que tengamos 
dos palabras que empiecen por la misma letra. Para codificar las 
ocho direcciones de la brújula utilizadas anteriormente tendremos que 
hacer utilizar hasta dos de las letras siguientes: N, NE, E, SE, S, SO, 
O, NO. 
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000 DATA u Pa] 1] ; "NORTE" ; 0 : —1 E Ú g" ' 1 
SUR",0,1,"0",“O0ESTE",-1,0,"E","E 
STE",1,0 

9010 DATA "NE", "NORESTE" ,1,-1 
9020 DATA "50", "SUROESTE",-1,1 


Obsérvese que sólo han cambiado los comandos. El ordenador 
da una descripción completa de la dirección ya que todavía estamos 
empleando aquella segunda parte de la lista de datos que contiene 
la respuesta. 


La comparación de palabras y de claves abreviadas 


En todos los programas anteriores nos hemos asegurado de que 
la palabra de entrada coincidía exactamente con la matriz que cons- 
tituía el comando. Sin embargo, sería útil que pudieran ser acepta- 
bles ciertas palabras con el mismo significado. Por ejemplo, se podría 
comprobar si la primera letra de la palabra se adaptase a la clave 
abreviada comparando su primer carácter (tomando I$(1)). 


170 LET I$=1$c(1>5 


Sería válido con NORTE, SUR, ESTE Y OESTE, pero existen 
problemas obvios al tratar de las posiciones intermedias. Además, 
hay muchas palabras que empiezan con las letras N, S, E y O, 
que serían igualmente aceptables para el ordenador como dirección 
válida. Por ejemplo: NO NORTE nos enviaría precisamente en esa 
dirección. Un proceso más selectivo sería comparar varias letras en 
lugar de una. En este ejemplo las tres primeras letras de las cuatro 
direcciones principales son características. 


NOR 
SUR 
EST 
OES 


Si se emplean esas palabras como comandos, resultarían igual- 
mente aceptables: 
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NORTE 
NORTEÑO 
NORDICO 


pero serían rechazadas otras como: 


NOS 
NOVIA 
NOTA 
NORIA 


Todo lo que tenemos que hacer es tomar las tres primeras letras 
de la palabra de entrada, IS$(TO 3), incluyéndose, naturalmente, la 
comprobación de que el número de letras de I$ no es inferior a 
dicho número. 


170 IF LEN (1$3<3 THEN GO TO 1 
a0 

193 LET I$=1$: TO 3) 
5000 DATA "NOR", "MORTE",0,-1,"SU 
RU ESOR" SD. tt. "EST", ESTE”, 1,0 


Comandos secuenciales 


En las rutinas anteriores hemos considerado las posiciones inter- 
medias de las direcciones de la brújula como entidades separadas 
pero si pudiéramos dar una secuencia de comandos, al mismo tiempo, 
no necesitaríamos hacer esto. Siempre hay más de un camino para 
llegar a un punto y si se pudiera comprender simultáneamente más 
de un comando, no nos tendríamos que preocupar en comprobar 
todas las direcciones tales como NORESTE, ya que podría tratarse 
por la combinación de NORTE y ESTE. Esto nos lleva a la signifi- 
cativa cuestión de cómo dividir una entrada en palabras. Primera- 
mente tenemos que preguntarnos cómo reconocer que una serie de 
caracteres constituye una palabra separada. La respuesta es, por su- 
puesto, la separación que vemos entre ellas. Si buscamos los espacios 
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podremos descomponer la entrada en palabras separadas que anali- 
zaremos individualmente. La forma más sencilla de buscar los espa- 
cios en BASIC es mediante la instrucción «INSTR » que analiza la to- 
talidad de una cadena de búsqueda designada para ver si coincide 
con otra propuesta. Desgraciadamente el BASIC de Sinclair no dis- 
pone de ella por lo que tendremos que utilizar una serie de ex- 
presiones del BASIC que sustituyan tal instrucción. Dicha serie se 
pondrá en una subrutina en la línea 5000 a la que nos referire- 
mos en lo que sigue del libro simplemente como la rútina INSTR. 


5000 FOR N=1 TO LEN (1$> 

5010 IF I$tN2=" * THEN  LET SP=N 
: RETURN 

5020 NEXT N 

Sa3o LET SP=0 

5040 RETURN 


Esta rutina comprobará si el primer carácter de I$ es un espacio. 
Si no lo es, seguirá haciendo la comprobación automáticamente, has- 
ta alcanzar el final de la citada variable alfanumérica I$. Si no se 
encuentra ningún espacio, la variable SP se pondrá a cero y, si se 
encuentra alguno, el valor de dicha variable SP será el número de 
caracteres de I$ donde se halla el espacio (véase el Diagrama de 
flujo 2.6). 


INTRODUCIR 
COMANDO 


IMPRIMIR LA 
ESPACIO? POSICIÓN 
DEL ESPACIO 


PASO AL 
CARACTER 
SIGUIENTE 


Diagrama de flujo 2.6. Búsqueda de espacios 
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Se necesita llamar a esta rutina desde la principal e imprimire- 
mos el resultado cuando se produzca el RETURN, de forma que 
veamos lo que está sucediendo. 


130 GO SUB 5000 
140 PRINT SP: 60 Ta 100 


Pruébese la subrutina con: 
NOR OES 
SP 4 
NORO ESTE 
SP 5 
NOR NOR OESTE 


SP 4 


Obsérvese que SP nos da la longitud de la palabra incluyendo 
el espacio pero sólo halla el primero de éstos. Para encontrarlos 
todos hay que trabajar más. En primer lugar, bórrese la línea 140. 

Analicemos lógicamente la "entrada desde el principio (extremo 
izquierdo). Substituyamos I$(TO 3) por IS$(ST TO ST + 2) para que 
podamos observar cualquier combinación de tres letras del total 
de I$. Para hacerlo más evidente llamaremos al resultado de esto 
—W$—, ya que nos muestra la posición de una palabra. Para em- 
pezar debemos iniciar la investigación haciendo ST igual a 1 y añadir 
un espacio delante de I$ para que también se encuentre la primera 
palabra (véase el Diagrama de flujo 2.7). 


123 LET S€T=1: LET I$=" "+Ié 
130 GO SUB 23000 

170 LET Wé=I1$cST TO ST+2) 

210 IF W$=C* THEN  PRINT G+;R+$: 
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LET X=xX+xXU: LET Y=Y+YU: 604 TO 1 
00 
5000 FOR N=ST TO LEN (1$) 
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ESPACIO AL 
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(ST = SP +1) 
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CARACTER 
SIGUIENTE 


NO 


COMPROBAR 
| HAY 
COINCIDENCIA 


W$ = TRES 

CARACTERES 
DESPUES DEL 
ESPACIO 


Diagrama de flujo 2.7. Búsqueda de una palabra clave 


Si ejecutamos esto tal como está, seguiremos encontrando toda- 
vía la primera palabra ya que tenemos el. «GO TO 100» al final de 
la línea 210. Sin embargo, enviando simplemente otra vez el programa 
a la comprobación INSTR, en la línea 130, tampoco nos ayuda ya 
que empezará siempre la comprobación desde el principio de I$ y 
volverá a encontrar el mismo primer espacio. Una vez lo hayamos 
encontrado, tenemos que desplazar la posición inicial —ST—, para 
la siguiente búsqueda sobre el carácter que sigue a dicho espacio, 
SP + 1. Cuando ya no pueden encontrarse más espacios, se ha al- 
canzado el final de la expresión de entrada y podemos remitirnos 
nuevamente a la instrucción GO TO 100. 
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140 IF SP>0 THEN LET ST=SP+1: 
GO TO 190 

150 GO TO 100 

210 1F Wi=C$ THEN PRINT G$;Rs: 
LET X=X+XU:z LET Y=Y+YUY GO TO 1 
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Ahora la entrada: 
NOR OESTE 
produce: 


IR NORTE 
IR OESTE 


y NOR NOR ESTE 
se decodifica en: 
IR NORTE 


IR NORTE 
IR ESTE 


La ejecución del bucle de comparación 
palabra propuesta / palabra almacenada 


Quedaría mucho mejor si se suprimieran los «IR» redundantes, 
y se pusieran las direcciones en la misma línea. Necesitamos la ins- 
trucción PRINT Gf$ una vez, inmediatamente delante de la compro- 
bación INSTR. Ahora cada vez que se ejecuta el bucle de compa- 
ración de la palabra propuesta con las almacenadas, se presentará 
en pantalla R$ (PRINT), si tal comparación es positiva. Como existe 
un punto y coma después de R$, las palabras se presentarán en la 
misma línea aunque todavía necesitamos añadir espacios entre ellas. 
Finalmente agregamos una simple instrucción PRINT antes de volver 
a la nueva entrada para desplazar la posición del cursor a la línea 


siguiente. 
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126 PRINT G$; 
145 PRINT | 

210 IF W$=C$ THEN PRINT Ré¿" " 
js LET X=X+XU: LET Y=Y+YU: GO TO 


130 
Ahora: 
NOR ESTE SUR OESTE 
nos enviaría en círculos con el mensaje: 


IR NORTE ESTE SUR OESTE 
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3 
Estudio del lenguaje natural 


0 


Hasta ahora sólo nos hemos comunicado con el ordenador de 
una forma muy restringida ya que únicamente ha sido programado 
para comprender muy pocas palabras o letras que reconoce exclusi- 
vamente cuando se introducen en una forma precisa. Por ejemplo, 
si se pone un espacio delante o detrás de la expresión o palabra 
INPUT (entrada), el ordenador la rechazará ya que lo que hace es 
comprobar si dos cadenas son exactamente iguales. 

Por otra parte, en el mundo real todos utilizamos lo que se co- 
noce por «lenguaje natural» que es una cosa muy complicada y 
extremadamente variable únicamente interpretado con eficacia por el 
cerebro humano. Incluso si olvidamos, por un momento, las diferen- 
cias entre las variaciones regionales, el proceso del lenguaje produce 
un infinito número de problemas. 

Ni los más complejos sistemas del mundo pueden pretender re- 
solver todos los problemas. Hay una vieja historia que ilustra esta 
situación muy bien. La CIA desarrolló un soberbio programa de 
traducción del inglés al ruso y viceversa. Confiando en impresionar 
al Presidente de los Estados Unidos, se preparó una demostración 
de sus posibilidades en la que cuanto decía se pasaba al ruso y des- 
pués esta versión se traducía nuevamente al inglés. Quedó admirado 
y totalmente absorto hasta que uno de sus ayudantes le recordó que 
había olvidado que la Primera Dama estaba esperándole fuera. 
El Presidente comentó: «Ojos que no ven, corazón que no siente». 
Su sorpresa fue grande cuando oyó a la máquina traducir: «Ciego 
insensible». 
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El tratamiento de las oraciones gramaticales, por ordenador 


Es de todos conocido que el lenguaje real se compone de ora- 
ciones, pero ¿qué es realmente una oración? Bien, la forma más 
elemental de reconocer una es mediante el punto que lleva al final. 
Sin embargo, si vamos a tratar con ellas habremos de profundizar 
mucho más. 

El «Oxford Dictionary» define una oración en estos términos: 
«Una serie de palabras encadenadas oralmente o por escrito que for- 
man una expresión gramatical completa con un solo sentido, conte- 
niendo generalmente sujeto y predicado, haciendo una declaración, 
una pregunta, una orden o una petición». También admite en un 
sentido más libre «parte de un escrito o expresión oral comprendida 
entre dos detenciones (puntos)». ¿Se puede hacer esto más compren- 
sible? Las complicaciones y los desvíos frecuentes de la lógica en un 
idioma son enormes. ¿Cómo podemos esperar que un ordenador 
pueda con ello? 

Bien, empecemos viendo algunos ejemplos de oraciones sencillas. 


YO QUIERO 
Tenemos un sujeto —YO— y un verbo —QUIERO—. 
YO QUIERO BIZCOCHOS 
Aparece un objeto: BIZCOCHOS 
YO QUIERO BIZCOCHOS MANTECOSOS 

Se califica el objeto con el determinante MANTECOSOS. 

YO SIEMPRE QUIERO BIZCOCHOS MANTECOSOS 
Se califica el verbo con el determinante adverbial SIEMPRE. 
la palabra más importante de los ejemplos anteriores es QUIERO 


va que comprende la idea principal. El segundo ejemplo es más 
mlormativo pues nos dirige a un objeto en particular: los BIZCO- 
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CHOS. La adición del adjetivo MANTECOSOS nos da más datos 
sobre el objeto deseado, pero la cosa se complica nuevamente 
cuando se incluye el adverbio SIEMPRE. 

¿Cómo puede analizar tales frases un ordenador? La respuesta 
es quizás encontrar alguna estructura lógica en la oración. ¿Qué 
reglas pueden establecerse para este ejemplo? 


1) Todo empieza con un sujeto —YO— y termina con un punto 
final. 

2) Las palabras que siguen al verbo son el complemento directo 
(pues empleamos un verbo transitivo). | 

3) La palabra delante del complemento es el verbo. 

4) Cuando al verbo no precede el pronombre sujeto, se trata de un 
adverbio. 

5) El adjetivo debe seguir al objeto. 


Un programa para analizar frases 


Preparemos un programa que analice las frases que se aplican 
al ordenador. Naturalmente que con las limitaciones que nos estable- 
cen las reglas anteriores. 

Para empezar necesitamos un vocabulario de objetos, adjetivos y 
adverbios con que trabajar, que habrán de ponerse en instrucciones 
DATA agrupados según la clase. Los primeros elementos son seis 
objetos, seguidos de seis adjetivos y por último tres adverbios. 


000 REM COMPLEMENTOS OBJETO 
2010 DATA "BIZCOCHOS" ,"BOLLOS"," 
PASTELES" á 
2020 DATA "CAFE", "TILA" ,"Pan" 
0120 REM ADJETIVOS 
9040 DATA "CRUJIENTES","TIERNOS" 
, "MANTECOSOS” 
7050 DATA "FRIO", "CALIENTE" ,"TEM 
PLADO" 
060 REM ADVUERBIOS 
75070 DATA "SIEMPRE", "NUNCA", "NOR 
MALMENTE" 
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Diagrama de flujo 3.1. Corte de palabras 


Ahora necesitamos descomponer la oración en palabras (véase el 
Diagrama de flujo 3.1). Nuevamente haremos esto por medio de la 
mstrucción INSTR (véase Capítulo 2) que busca los espacios. Para 
hacer las cosas más fáciles añadiremos un espacio al final de 1$ 
con lo que igualaremos el formato de todas las palabras. 


100 INPUT 1%: PRINT I+ 
110 LET ST=1 
120 LET If=I$+" " 
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130 GO SUB 5000 
190 GO TO 130 

5000 FOR N=ST TO LEN (1%) 

5010 IF I$(N)=" " THEN LET SP=N 
RETURN 

5020 NEXT-N 

5030 LET SP=0 

5040 RETURN 


Se llega al final de la oración cuando no pueden encontrarse 
más espacios. 


190 1F SP=4 THEN 60 TO 200 


Si se encuentra un espacio se corta la parte de I$ desde ST 
(principio del análisis) hasta SP (el espacio, lo que comprende la 
longitud total de la palabra) y se guarda en una cadena de pala- 
bras: WS(WC). 


10 DIM W+;c10,12) 
150 LET visetWC=1$0ST TO SP) 


Empezamos con ST = 1 para que el análisis comience en el 
primer carácter de la cadena de entrada. La variable contadora de 
palabras WC se pone en uno para que la primera hallada se guarde 
como primer elemento de esta cadena de almacenamiento. 


110 LET ST=1: LET UCE=1 


Se incrementa el contador de palabras (para que el siguiente ele- 
mento de la cadena W$ pueda admitir la próxima voz). También 
se comprueba que no haya más de cinco palabras en la oración. 
La posición de inicio para la siguiente búsqueda se establece en 
una unidad más que la del último espacio y se continúa la inves- 
tigación. 

39 


150 LET LE =WwC+1 

170 IF UWE>4 THEN  PRINT "FRASE 
DEMASIADO LARGA": 60 TO 100 

120 LET ST=SP+1 


Veamos cómo el programa nos descompone ahora la frase en pa- 
labras, las presenta y nos dice el número de ellas. Ejecútese el lis- 
tado que sigue que es la concatenación de los precedentes con las 
siguientes modificaciones: en la línea 150 se ha añadido un PRINT 
para la presentación de las palabras, la 185 para salir del bucle al 
terminar el contaje y la 5045 para presentar en pantalla el número 
de palabras de la frase. (Obsérvese que en esta línea se pone WC-1 
porque se añadió un espacio a la cadena I$, que se contaría en 
otro caso como palabra). 


10 DIM W$(3,12) 
100 INPUT "PONGA SU FRASE";1I$: 


PRINT 1$ 

110 LET ST=1: LET WC=1 

120 LET I$=I$+" ” 

130 GO SUB 50006 

140 1F SP=0 THEN 60 TO 206 

150 LET Wé(WE>=I$ST TO SP): PR 
INT *“UBCuUCO) 

150 LET WE=bWC+1 

170 IF WE>4 THEN PRINT "FRASE 
DEMASIADO LARGA": GO TO 100 

1390 LET ST=SP+1 

125 IF ST>=LEN I$ THEN 60 TO 5 
043 

120 60 TO 130 
3000 FOR N=ST TO LEN I+ 
5010 IF I$tNo=" " THEN LET SP=N 
: RETURN 
5020 NEXT N 
5030 LET SP=6 
2040 RETURN 
50435 PRINT *“"NUMERO DE PALABRAS 
EN LÁ FRASE= "¡WC-1 
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2000 REM OBJETOS 
010 DATA "BIZCOCHOS" ,"BOLLOS"," 
PASTELES" 

2020 DATA "CAFE", "TILA", "Péár" 
2020 REM ADJETIVOS 

040 DATA "CRUJIENTES","TIERNOS" 
, "MANTECOSOS" 

75050 DATA "FRIO", "CALIENTE", "TEM 
PLADO" 

2040 REM ADVUEREIOS 

2070 DATA "SIEMPRE", "NUNCA", "NOR 
MALMENTE" 


Continuemos ahora con una prueba para ver si hay identidad en- 
tre las palabras objeto de la frase y las correspondientes contenidas 
en la instrucción DATA O$ que contiene el vocabulario (véase el 
Diagrama de flujo 3.2). 

Dado que el BASIC de Sinclair utiliza cadenas de longitud fija 
de acuerdo con el dimensionado que establece la instrucción DIM W$ 
(10,12), hay que añadir el adecuado número de espacios al final de 
la palabra objeto guardada en la instrucción DATA para poder com- 
pararla con la correspondiente palabra entrada. Logramos esto 
agregando doce espacios en el extremo derecho de O$ y cortando 
después los doce primeros caracteres de la cadena resultante. 


205 READ ($: LET O$=(0%+" 
"3£ TO 12) 


Sólo se comprueban las palabras 3 y 4 ya que son las únicas 
posibles para el objeto en nuestro restringido formato de la frase. 
Se pasa por dos rutinas diferentes según la posición de la palabra co- 
rrespondiente de la frase. Si no hay identidad se presenta el opor- 
tuno mensaje en pantalla y se solicita una nueva entrada. La ins- 
trucción RESTORE al principio de la línea 200 lleva siempre el pun- 
tero de datos a su origen. 
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IMPRIMIR «NO 
HAY ADVERBIO 
O ADJETIVO» 


¿COINCIDE SI 
CON LA TERCERA 
PALABRA? 


DESPLAZAR EL 
PUNTERO DE 
LOS OBJETOS 


IMPRIMIR «HAY 
UN ADJETIVO» 
O UN ADVERBIO 


¿COINCIDE Si 
CON LA CUARTA 
PALABRA? 


IMPRIMIR 
«OBJETO NO 
IDENTIFICADO» 


Diagrama de flujo 3.2. Buscando la coincidencia 


200 RESTORE : FOR N=1 TO 4 

210 IF W$(33=0$% THEN GO TO 500 
220 IF W$(9=0$% THEN GO TO $00 
240 NEXT N 

250 PRINT “"OBJETO NO IDENTIFIC 


ADO" 
¿260 PRINT “*"PONGA UN OBJETO DEL 
VOCABULARIO" 


265 60 TO 100 
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Si se encontró el objeto como palabra tres no puede haber ad- 
verbio (que ha de estar después del verbo). 


500 PRINT “"NO HAY ADUERBIO EN 
LA FRASE" 
510 GO TO 40 


Si el objeto se encontró en la palabra "cuatro, tiene que haber 
un adverbio en la frase (véase el Diagrama de flujo 3.3). 


£00 PRINT “"HAY UN ADVERBI0" 


IMPRIMIR - 
«NO HAY 
ADVERBIO» 


IMPRIMIR «HAY 


IDENTIFICADA 


¿W$(4) = 0$? 


IMPRIMIR 
«OBJETO NO 
IDENTIFICADO» 


Diagrama de flujo 3.3. Coincidencia del adverbio y del objeto 


Primero buscamos la identidad entre la segunda palabra y los 
adverbios contenidos en la instrucción DATA. Estos son leídos se- 
cuencialmente en la variable V$. Debemos recordar que el puntero 
de datos debe ponerse en el primer adverbio por medio de la ins- 
trucción RESTORE 9060 y V$ ha de completarse con espacios que 


permitan la comparación. 
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é10 RESTORE ?0640: FOR N=1 TO 3 
615 READ V$: LET Ué=(U$+" 
"3£ 10. 122 
$20 1F Wécz>=U% THEN GO TO 200 
$30 NEXT N 
635 PRINT “"ADVUERBIO "juéec2>;"N 
O IDENTIFICADO" 


Si hay identidad o coincidencia, la línea 620 nos remite a la 900 
que presenta la palabra. Si no hay identidad, se presenta el corres- 
pondiente mensaje de no haber coincidencia en el caso del adverbio, 
diciéndose la palabra que no lo ha sido. A continuación se busca la 
identidad del adjetivo en la lista correspondiente que se asigna a la 
variable J$. 


640 RESTORE 2030: FOR N=1 TO 6 
645 READ J$: LET I$=C(J$+" 


"36€ TO 12) 
650 IF VWé$ec5s=J$ THEN GO TO 100 
0 
é52 IF Wé$(c43=J$ THEN 60 TO 100 
a) 


$559 NEXT ON 

$70 IF WEX<S THEN PRINT “"NO HA 
Y ADJETIVO EN LA FRASE": 60 TO 1 
00 


El adjetivo puede estar en la palabra 4 si no hay adverbio o en 
la 5 si lo hay, por lo que se usan dos rutinas, líneas 650 y 652, en 
las que si se cumple la condición nos remiten a las 1000 y 1005, 
una de las cuales nos identifica el adjetivo. 

Resumamos ahora lo expuesto con un listado completo que nos 
analiza las frases que le pongamos, diciéndonos el adverbio y el 
acljetivo si los hay y cuáles son las palabras no identificadas en 
cada caso. Las frases han de tener un sujeto, un verbo y un ad- 
verbio O un adjetivo, o ambos, pero en el orden de las reglas que 
establecimos. La frase no puede tener más de cinco palabras ni me- 


44 


nos de cuatro. El vocabulario del programa es muy limitado pero 
nada impide que se extienda, si así se desea. 


Si IMPRIMIR 
LA PALABRA 
2 ES EL 
ADVERBIO V$ 


IMPRIMIR 
ADVERBIO NO 
IDENTIFICADO 


SI IMPRIMIR LA 


PALABRA 5 ES 
EL ADJETIVO J5$ 


IMPRIMIR LA 
PALABRA 4 ES 
EL ADJETIVO J5$ 


IMPRIMIR «NO 
HAY ADJETIVO» 


Diagrama de flujo 3.4. Adverbio y adjetivo 


0 REM PROGRAMA RESUMEN DE LC 
TRATADO HASTA AHORA EN ESTE CAPI 
TULO. 

CONDICIONES QUE DEBEN DE SATISFA 
CER LÁS ORACIONES PARÁ LA ACTUAC 
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ION CORRECTA DEL PROGRAMA: 
¡ .—SINTAXIS.PRONOMBRE ,ADVERBIO, 
VERBO, COMPLEMENTO OBJETO Y ADJET 
IO. 
2.—PUEDE FALTAR EL ADVERBIO O EL 
ADJETIVO,PERO NO LOS DOS 
95 PRINT 
97 PRINT 
100 INPUT "PONGA SU FRASE ";I$: 
PRINT 1% 
101 PRINT 
102 DIM W$c10,12) 
104 IF I$="ALTO" THEN STOP 
110 LET ST=1: LET WC=1 
120 LET Ié=I$+" " 
130 GO SUB 5000 
140 1F SP=0 THEN GO TO 191 
150 LET W$(WC=1$(0ST TO SP): PR 
INT $ CUC> 
140 LET WO=WC+1 
180 LET ST=SP+1 
190 GO TO 130 
191 PRINT “"NUM.DE PALABRAS: "; 
WO=1 
192 IF WC>6 THEN PRINT “"FRASE 
DEMASIADO LARGA. (PULSAR UNA T 
ECLA PARA SEGUIR>": PAUSE 0: CLS 
: CLEAR : 60 TO 100 
195 IF WO<S THEN PRINT “"ORACI 
ON INCOMPLETA. ¿PULSAR UMA T 
ECLA PARA SEGUIR)": PAUSE 0: CLS 
: CLEAR : GO TO 100 
200 RESTORE : FOR N=1 TO 4 
205 READ 0%: LET O%$=(09+" 
13% TO 12) 
210 IF W$(3>=0% THEN GO TO 500 
220 IF Wéc43=08 THEN GO TO ¿00 
240 NEXT ON 
250 PRINT “"OBJETO NO IDENTIFIC 
ADO" 


250 PRINT “"PONGA UN OBJETO DEL 

VOCABULARIO" 

270 PRINT “"¿PULSE UNA TECLA PA 
RA SEGUIR)"; PAUSE 0: CLS : GO T 
o 100 

500 PRINT “*"NO HAY ADVERBIO EN 

LA FRASE" 

510 GO TO 440 

£00 PRINT “"Hay UN ADUERBIO" 

$05 PRINT “"IDENTIFICADA PALABR 
A "gus 

610 RESTORE 7060: FOR N=1 TO 3 

615 READ Y$: LET Ué$=(Ug+" 

af TO 125 
20 IF MHéc2=U48 THEN 60 TO 200 
30 NEXT H 

£25 PRINT “"NO IDENTIFICADO ADY 
ERBIO "¡uéz22: GO TO $40 

¿90 RESTORE 7030: FOR N=1 TO 4 
4395 READ J$: LET Jé$=(J$+" 


"3 TO 12) 
¿350 IF WJ$x5=J$ THEN 60 TO 100 
0 
éndz IF Wécd=J4$ THEN 60 TO 100 
¿£á35 MEXT N 
$0 IF WE<óá THEN — PRINT “*NO HA 


Y ADJETIVO EN LA FRASE": 60 TO ? 


10 
630 PRINT “*"ADIETIVO NO IDENTIF 
ICADO . (PULSAR UNA TECLA P 


ARA SEGUIR": PALSE 0: CLS : 60 
TO 100 

00 PRINT "LA PALABRA 2 ES EL Á 
DVUERBIO:", We 

03 IF WE<S THEN  PRINT “"*NO HA 
Y ADJETIVO EN LA FRASE": 60 TO ? 
10 

70 IF WE>=6 THEN PRINT “"TAMB 
IEN HAY UN ADJETIVO": GO TO ¿440 
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210 PRINT *"*CPULSAR UNA TECLA P 
ARÁ SEGUIR": PAUSE 0: CLS : GO 
TO 100 
1000 PRINT "LA PALABRÁ 5 ES EL Á 
DIETIVO:",,W$(5>,"PULSAR UNA TE 
CLA PARA SEGUIR)": PAUSE 0: CLS 


60 TO 100 
1003 PRINT *"LAÁA PALABRA 4 ES EL 
ADJETIVWOD:",,hW$rd> 


1010 PRINT “"(PULSAR UNA TECLA P 
ARA SEGUIR>": PAUSE 0: CLS : GO 
Ta 104 

5000 FOR N=ST TO LEN 15 

5010 IF I$(N)=" " THEN LET SP=N 
: RETURN 

5020 NEXT N 

5030 LET SP=0 

5040 RETURN 

000 REM OBJETOS 

2010 DATA "BIZCOCHOS" ,"BOLLOS"," 
PASTELES" 

2020 DATA "CAFE", "TILA", "PAN" 
030 REM ADJETIVOS 

2090 DATA "CRUJIENTES","TIERNOS" 
, "MANTECOSOS" 

9050 DATÁ "FRIO","CALIENTE","TEM 
PLADO" | 

7060 REM ADVERBI0OS 

2070 DATA "SIEMPRE" ,"NUNCA" , "NOR 
MALMENTE" 


Presentación en pantalla 
al ejecutarse el programa 


YO NORMALMENTE COMPRO BIl2¿COCcHaSs 
MANTECOSOS 


YO 
NORMALMENTE 


COMPRO 
BI ¿COCHOS 
MANTECOSOS 


NUM.DE PALABRAS: 3 
HAY UN ADVERBI0O 
IDENTIFICADA PALABRÁ BIZ2COCHOS 


LA PALABRA 2 ES EL ADVERBIO: 
NORMALMENTE 


TAMBIEN HAY UN ADJETIVO 

LA PALABRA 3 ES EL ADJETIVO: 
MANTECOSOS 

¿PULSAR UNA TECLA PARA SEGUIR) 


La puntuación interpretada por el ordenador 


Como ya hemos dicho anteriormente, se reconoce generalmente 
el final de una frase porque encontramos un punto aunque cuando 
se teclea el ordenador nos olvidamos frecuentemente de estas trivia- 
lidades. Pero, ¿qué ocurrirá en el programa que hemos preparado 
hasta ahora si un usuario «culto» introduce una correcta puntuación? 
Si lo pensamos, por un momento, veremos que el ordenador em- 
pezará a quejarse ya que no reconocerá la última palabra que será 
leída con el punto incorporado. 

Necesitamos, por consiguiente, comprobar si el último carácter 
de la cadena de entrada 1$ es un punto. El mejor lugar para hacerlo 
parece ser inmediatamente después de la entrada (INPUT). Si el últi- 
mo carácter es «.» basta rechazarlo y continuar como antes. 

Añadiremos esto como una subrutina a la que se pasa tan pronto 
como se hace una entrada. Otros signos de puntuación pueden apa- 
recer también al final de la frase por lo que leeremos el último ca- 
rácter como perteneciente a una variable L$ que usaremos posterior- 
mente (véase el Diagrama de flujo 3.5). 
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L$ = ULTIMO 
CARACTER 


ELIMINAR EL 
CARACTER 


Cc 

E 

a 
El 

¡[e 


IMPRIMIR 
«INTERRO - 
GACION» 


¿SE TRATA 
DE “12? 


Diagrama de flujo 3.5. El tratamiento de la puntuación 


105 GO SUB 2000 
2000 LET Lé=I$CLEN (1$)> 
2010 IF Lé*=","* THEN GO TO 2100 
2020 RETURN 
2100 LET I$=I1$(£ TO LEN CIé>-1>5: 
RETURN 


Una terminación frecuente de frase es el signo final de interro- 
gación que indica el sentido de la oración. Podemos identificarlo 
de la misma manera y, de momento, nos limitaremos a informar de 
su presencia. 


2030 IF L$="?" THEN PRINT "INTE 
RROGCAÁCIOÓN"*: GO TO 2100 


La instrucción normal INPUT no aceptará nada detrás de una 
coma que se lee como terminación de datos. Sin embargo, INPUT 
I.INE aceptará cualquier texto incluyendo las comas. (El único incon- 
veniente de utilizar INPUT LINE es que se puede quedar atrapado 
en un bucle sin fin. A diferencia del INPUT normal, no se puede 
borrar ni detener el programa con el INPUT LINE). 
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100 INPUT LINE I$:PRINT Iz 


Las comas son útiles para indicar diferentes partes de una oración 
que pueden examinarse como sub-unidades. Sin embargo, en los ca- 
sos sencillos es mejor eliminarlas y substituirlas por espacios antes 
de que la oración se descomponga en palabras (véase Diagrama de 
flujo 3.6). Obsérvese que esto sólo funcionará correctamente si no 
hay espacios detrás de la coma, ya que tualesquiera que sigan se 


interpretarán como una nueva palabra. 


REINICIALIZAR 
LA POSICION 
DE BUSQUEDA 


e SI 


SUSTITUIR 
ESPACIO 


CORTAR 
Y UNIR 


O 

O 

2 
El 

Z2 


INCREMENTAR 
INICIACION 
BUSQUEDA 


INCREMENTAR 
INICIACION 
BUSQUEDA 


Diagrama de flujo 3.6. Sustitución de comas y apóstrofos 


Vamos a modificar nuestra subrutina INSTR (véase Capítulo 2) 
para que podamos comprobar la aparición de I$ dentro de una ca- 
dena determinada (TS). Para clarificar las cosas a largo plazo, ha- 
remos que la variable señale la posición de la correspondencia o iden- 
tidad en la cadena IS que puede intercambiarse después con cualquier 


REINICIALIZAR 
DE BUSQUEDA 


número de variables diferentes como SP. Primero modificamos nues- 


tra comprobación de espacios en el nuevo formato. 


130 LET Té*=" *; GO SUBE 5000: LE 
T SP=IS 

5010 IF I$(No=T* THEN LET IS=N: 
RETURN 


5030 LET 15=0 
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Ahora el mismo método puede utilizarse para buscar una coma, 
antes de substituirla con un espacio. 


115 LET T*$=",": GO SUBE 2000 
3000 GO SUB SONO: LET CmM=I1S 
3010 IF CM=0 THEN LET ST=1: RET 
LIRN 
2020 LET I$=1$t% TO CM-123+" "+I$( 
EmM+1 TO > 
3030 LET ST=CM+1 
3040 60 TA 3000 


Si añadimos esta línea se verá cómo desaparecen los signos de 
puntuación de la cadena, uno por uno. 


3025 FRINT I$ 


Los apóstrofos pueden tratarse de la misma manera excepto que 
no los sustituimos con un espacio sino que simplemente juntamos 
las palabras. 


115 LET T$é=",": GO SUB 2000: LE 
T T$=""": GO SU8 3100 
3100 60 SUB 5000: LET AP=IS 
3110 IF ÁP=0 THEN  LET ST=1: RET 
LIRA 
3120 LET I$=1$f7 TO AP-1>+I$.APF+1 
TO) 
3125 PRINT I$ 
23130 LET ST=AP+4 
31490 60 TQ 3100 


Un metodo de análisis corrido 


Aunque el método de analizar una frase descrito anteriormente 
es aprovechable, tiene la desventaja de que requiere que la frase 
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entrada tenga una forma particular restringida. Por ejemplo, si se 
aplica: 


PASTELES TIERNOS ES LO QUE QUIERO 
cl ordenador responderá: 
OBJETO NO ENCONTRADO 


ya que sólo establecimos que los buscase en la tercera O cuarta 
palabra. 

Haciendo un análisis corrido de toda la frase para buscar cada 
palabra clave sin tener que descomponer aquella previamente, se lo- 
gra la ventaja de que permite una forma completamente libre. Con 
este método tomamos la primera palabra y tratamos de identificarla 
con el mismo número de letras de la cadena I$ empezando por la 
primera. Si esto falla, automáticamente repetimos la prueba empezan- 
do por el segundo carácter y así seguimos hasta entontrar la palabra 
O llegar al final de la cadena 1$. Por ejemplo, si I$ es YO QUIERO 
PASTEL y la primera palabra del repertorio es «PASTEL », la com- 
paración sería: 


Paso 1 YO QUI 
Paso 2 O QUIE 
Paso 3 QUIER 
Paso 4 QUIERO 
Paso $ UIERO 
Paso 6 IERO P 
Paso 7 ERO PA 
Paso 8 RO PAS 
Paso 9 O PAST 
Paso 10 PASTE 
Paso 11 PASTEL (palabra encontrada) 


Hasta ahora nuestra rutina INSTR sólo ha tratado de identifi- 
car un solo carácter pero tendremos que modificar la línea 5010 
nuevamente para que tenga en cuenta la longitud de la palabra ana- 
lizada. Utilizaremos una variable que acoja dicha longitud: WL.. 
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5000 FOR N=1 TO LEN ¿1T+>-—LUL+1 
5010 1F I$<óN TO N+UL-12>:=T$ THE 
MH LET IS=N: RETURN 

2020 NEXT N 

5030 LET 1S5=0 

2040 RETURN 


Bórrese todo excepto las líneas de datos (DATA) (de la 9000 
en adelante) y agréguense éstas para la identificación de un obje- 
to OS. 


1004 INPUT 1% 
zZ10 LET T$=0$: GO SUB 5000: LET 
SP=1S: IF SP>0 THEN  PRINT (0$;" 


, 


Cada objeto (complemento directo) puede compararse de la mis- 
ma manera formando un bucle pero es esencial el restablecimiento 
del marcador de longitud de palabras —WL— a la correspondiente 
que se analiza en cada momento. (Téngase en cuenta que ponien- 
do un punto y coma después de O$ se asegura que cada palabra se 
sitúe en la misma línea.) 


¿00 RESTORE : FOR M=1 TO á 
205 READ 0%: LET LIL=LEN (0$) 
220 NEXT M 


Pueden hacerse pruebas similares para la identificación de pala- 
bras de la lista de adverbios y adjetivos. Obsérvese que RESTORE 
(seguido de número de línea) se utiliza para que no sea preciso 
leer, mediante la instrucción READ, los datos en el orden en que 
se4ecntraron. 


300 RESTORE *060d: FOR M=1 TO 3 
305 READ V$: LET WL=LEN (UB) 
310 LET Té=U%: GO SUB 5000: LET 


SP=1S: IF SP>0 THEN  PRINT Vs;" 
3 

320 NEXT M 

3900 RESTURE 2030: FOR M=0 TO S 

405 READ JI$: LET WUL=LEN (¿I185 

410 LET T+*=7%: GO SUE 5000: LET 

SP=I1S: IF SP>0 THEN  PRINT JI$;" 


420 NEXT M 

50d LET I$="" 

2310 PRINT *OTRA ENTRADA?" 
920 INPUT Qs$ 

9230 CLS$ 

394 GO TO 100 


Para informar que se han hallado las palabras que utilizaremos 
posteriormente, se almacenarán en una matriz en el momento en que 
se encuentran. Ya tenemos una matriz de cadena —WS$— para guar- 
dar las palabras y la ampliaremos hasta una capacidad de 20 (lo 
que tendría que ser suficiente para una frase un poco complicada). 


10 DIM ($: 20,12) 
20 LET UE=1 


SI se encuentra identidad o coincidencia, una variable de cadena 
(ES) con carácter temporal se pone al valor del orden de la palabra 
encontrada y se llama a la subrutina de la línea 1500 que la pone 
en el primer elemento de la citada matriz (véase el Diagrama de 
flujo 3.7). 


210 LET Té*=0%:60 SUB SOCO:LET $ 
=15:1F SP>OTHEN LET E*=0$:PRINT 
ES;3" *3:G0 SUBE 1500 

1500 LET WC =ES 


El contador de palabras WC se incrementa entonces para que la 
siguiente se ponga en el elemento que sigue antes de hacer el retorno 
de la subrutina. 

55 


E IMPRIMIR | 
¿COINCID «OBJETO 18 = 0$ 
OBJETO? IDENTI- ó 
FICADO» 


NO 
ALMACENAR 
IMPRIMIR 
¿COINCID Sl «ADVERBIO ' TS = VS 
ADVER - IDENTI— 
BIO? FICADO» | 
NO INCREMENTAR 
CONTADOR 
PALABRAS 
IMPRIMIR | 
Concipes 3! «ADJETIVO T$ = J$ 
¿E IDENTI — 
FICADO» 
NO | 


Diagrama de flujo 3.7. Análisis corrido 


1520 LET LIC=1JE+1 
1330 RETUR 


Usando la cadena temporal E$ en la rutina de almacenamiento 
podremos también utilizarla en la prueba de adverbios y adjetivos 
exactamente igual. 


310 LET T$=V$: GO SUB 5UDO: LET 
SP=1S: IF SP>0 THEN LET ES>+: 
PRINT ES:¡" "3: GO SUE 1500 

910 LET Té$=J%: GO SUE 50060: LET 
SP=15: 1F SP>0 THEN  LET Es=J$: 
PRINT ES" “3: GO SUE 1300 


l.n comparación parcial 


Una ventaja del análisis corrido es que se puede reconocer una 
serte de palabras relacionadas sólo investigando los caracteres esen- 
cales. Esto es obviamente útil, ya que evita tener que poner los nom- 
bres en singular y en plural como BOLLO y BOLLOS. Si se en- 
mienda la línea 9010 de datos, como se muestra a continuación, se 
logrará la coincidencia O identidad para ambos casos. 
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7010 DATA "BIZCOCHO", "BOLLO", "PA 
STEL" 
2020 DATÁ "CAFE", "TILA", "PAR" 


sin embargo, las cosas no son tan sencillas. Poniendo BOLL. se 
detectará BOLLO y BOLLOS, pero también podemos sacar BOLLA, 
BHOLLADURA, BOLLON, BOLLICIO, etc. 

liste problema no sólo se limita a los. prefijos ya que el orde- 
mador tampoco distinguirá entre PERO y APERO, por ejemplo. 
se puede incluir una comprobación de que el carácter delante de cada 
identidad sea un espacio (es decir, que tal identidad sea una palabra, 
véase el Diagrama de flujo 3.8). La variable SP da la posición del 
principio de la palabra por lo que I$(SP — 1) es el carácter an- 


terior a ella. 
HAY 
¿HAY ESPACIO EN IMPRIMIR 
IDENTIDAD? CARACTER «IDENTIDAD» 
PREV ? 


Diagrama de flujo 3.8. Comprobación de que se trata del principio de una palabra 


210 LET Té=0%$: GO SUB 5000: LET 
SP=I1S: IF SP=0 THEN NEXT M: GO 
TO 300 

211 IF I$(8P-1)<>" " THEN NEXT 
M: GO TO 2300 

212 LET E$=0%: PRINT E$;" ";: 6 
O SUB 1500 

310 LET T$=/$: GO SUB 5000: LET 
SP=1S: IF SP=0 THEN NEXT M: GO 
TO 400 

311 IF 1I%(5P-13<>" " THEM NEXT 
M: GO TO 400 

312 LET E$=U*$: PRINT E$," "3: 6 
O SUB 1500 
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410 LET T$*=J$: GO SUB 5000: LET 
SP=1S: IF SP=0 THEN NEXT M: GO 
TO 500 

411 IF I$C(SP-123<>" * THEN NEXT 
M: 60 TO SO 

412 LET Ef=J$: PRINT ESF¡]" "3: 6 
O SUB 1500 


Para que esto funcione correctamente con la primera palabra 
añádase un espacio al principio de I$. 


110 LET I*=" "+I]1% 


En forma similar se podrían hacer pruebas sobre la letra si- 
guiente después de establecer la identidad de letras, o sobre la lon- 
ritud de la palabra, para limitar las ya conocidas. 


Una rutina de clasificación para efectuar reordenaciones 


Aunque ya hemos detectado todas las palabras de la frase con 
independencia de su posición o cualquier otra cosa, se han encon- 
trado y almacenado en el orden en que aparecian en la instrucción 
DATA. Esto es así porque la comparación empieza con el primer 
clemento en la lista de objetos en vez de empezar con la primera 
palabra de la frase. Sería útil si pudiéramos reordenar la matriz de 
palabras para que éstas estuvieran en el orden en que aparecen en 
la frase. Para lograrlo tenemos que registrar la posición de la pala- 
bra cn la frase con la variable SP y los valores del contador de 
palabras WC cuando cada una se identifique en una nueva matriz de 
posición P(n,n). Se trata de una matriz bidimensional con la posi- 
ción de la frase en el primer elemento, P(WC,0), y el Contador de 
palabras, P(WC,1), en el segundo. 


15 DIM PC20,2) 
1510 LET P£WC,1>=SP: LET PCUWC, 2) 
=lhiC 


Il ¡1 rutina de clasificación que efectúa la reordenación se encuen- 
traen la línea 4000 y sólo se va a ella cuando se logra una iden- 
ibi ación. 


440 IF WC=0 THEN GO TO 470 
450 60 SUB 4000 

460 GO TO 500 

470 PRINT "NO SE HA ENCONTRADO 
IDENTIDAD” 


lia rutina de clasificación (véase el Diagrama de flujo 3.9) toma 
li posición en la frase de la primera palabra encontrada (primer 
“lemento en la primera dimensión P(1,1)) y lo compara con la posi- 
ción de la segunda palabra hallada (segundo elemento de la primera 
dlinensión PA + 1,1)). Si la variable de posición para la primera 
pmilabra no tiene un valor más alto que el de la segunda, entonces 
esta se encuentra antes que aquella y debe invertirse el orden. Con 
cllo se ponen los punteros de posición de frase en orden correcto 
pero los marcadores del contador de palabras también necesitan ser 
rcordenados. El proceso se repite hasta que los punteros de palabras 
estén en orden correcto. Obsérvese que los contenidos reales de la 
matriz que alberga las palabras no se alteran. Unicamente se alteran 
sus punteros (los índices). 


PERMUTAR 

PUNTEROS PUNTEROS CO MPAGR Pa 

POSICION CONTADOR > 
FRASE PALABRAS DAS: 


PERMUTAR 


Si 


NO 


Diagrama de flujo 3.9. Clasificación de las palabras 


4000 FOR N=1 TO WC-2 
4010 IF PN,1><P(N+1,1) THEN NE 
XT N: GO TO 4040 

4020 LET D=P(N,1): LET PON, 1)=PC 
MN+1,1): LET P£N+1,1)=D 
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4030 LET D=P(N,2>: LET PN,2>=PC 
N+1,2):1 LET P(N+1,23=D: GO TO 40 
ac 


Si las cadenas se presentan en pantalla ahora en el orden variado 
del contador de palabras (WC), se hallarán como en la frase origi- 
nal, lo que hará más fácil su comprensión. 


4040 PRINT : FOR N=1 TO WC-1 
4050 PRINT WécPIN, 2933" "; 
4060 NEXT N: PRINT 


Todos los elementos de la matriz de posición de frase P(N,1) 
y del contador de palabras, WC, deben restablecerse a cero antes de 
la siguiente entrada. 


4070 FOR N=1 TO 20 
40380 LET PiN,1>=0 
4070 NEXT ON 

3100 LET WO=1 

4110 RETURN 
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4 
l.a programación de respuestas 


Hemos considerado en profundidad cómo analizar frases que se 
aplican al ordenador pero los mensajes que se han producido hasta 
ahora han sido muy limitados y rígidos. Aunque la mayoría de las pa- 
libras originales de la frase se usan frecuentemente en las respuestas, 
«cn una conversación real se considera el sujeto de la oración y se 
modifica de acuerdo con el contexto de la respuesta. 

Por ejemplo: 


YO NECESITO DESCANSO 
pudiera esperar una respuesta afirmatoria: 
TU NECESITAS DESCANSO 
y en forma similar: 
TU NECESITAS DESCANSO 
daría lugar a: 
YO NECESITO DESCANSO 
Si se examina esta situación lógicamente, se aprecia que para cada 
sujeto en la oración entrada hay un sujeto equivalente de salida. 


Prácticamente lo que hemos hecho, por lo que se refiere al sujeto, 
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cs permutarlo y añadir el resta de la frase en concordancia con el 
nuevo sujeto (y se ha modificado el verbo). 

El pronombre «YO» son dos letras que se pueden poner en la 
variable 1$. Si I$(TO2) = «YO» se ordena que «TU» se agregue 
delante del resto de la frase, previa modificación adecuada de la 
forma del verbo que ha de pasar de la primera persona a la segunda 
como se expresa en el listado siguiente: (I$ = «YO NECESITO 
DESCANSO»). 


10 IMPUT I1%$ 

30 IF I1I$*(€ TO 2="Y0O0" THEN PRI 
NT "TU"+13%$22 TO 10)+"AS"+I*(12 T 
a > 

so 60 TO 10 


De análoga forma se pueden investigar los dos primeros caracte- 
res, I$(TO2), con respecto a la palabra «TU» y, si es el caso, sus- 
tituirse por el pronombre «YO». 


50 1F 1$€ TO 23="TU" THEN PRI. 
NT "YO0"+1$:23 TO 102>+"0"+1$(13 TO 
) 


Si se prueba esto con una serie de frases se verá su utilidad 
hasta que empleemos el verbo auxiliar SER o ESTAR. Por ejemplo: 


VU ESTAS CANSADO 


que nos obligaría a analizar el verbo SER relacionando las expresio- 
nes YO ESTOY y TU ESTAS. Supongamos que a la afirmación 
«YO ESTOY CANSADO» se desea la respuesta «TU ESTAS CAN- 
SADO». Obsérvese que al final de estas instrucciones se ha de poner 
la que nos retorna a la entrada para evitar el confusionismo que 
se pudiera originar si se analizaran los pronombres personales de 
las líneas siguientes: 
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20 1F 1% TO 8>)="YO ESTOY" THE 
HN PRINT *TU ESTAÁS"+1$(? TO >): G 
O TO 16 

40 IF 1$£ TO 8$)="TU ESTAS" THE 
N  PRINT *YO ESTOY"+1$(92 TO: G 
a TO 10 


Listado resumen 


10 INPUT I3+ 

20 IF 1$2 TO S%="YO ESTOY" THE 
MH PRINT "TU ESTAS"+1$%$(¿92 TO >: G 
O TG 10 

20 1F 183% TO 23="Y0" THEN PRI 
NT "TU"+ISt3 TO 10+"AS"+IéciZ T 
00) 

30 1F I1$*2 TO £="TU ESTAS" THE 
N  PRINT "YO ESTOY"+I1$(82 TO >: G 
A TO 10 

0 1F 1$£ TO 22="TU" THEN  FFI 
NT "YO"+I1é:22 TO 103+"0"+I1$c13 TO 


Aunque así logramos nuestro propósito, el programa pronto se 
hará excesivamente largo ya que se necesita una instrucción por cada 
posibilidad, dado que hemos de tener en cuenta la longitud de la 
palabra o frase a analizar. Cuando se necesita la comparación de 
muchas palabras es mejor leerlas mediante la instrucción READ, del 
contenido de las DATA y efectuar la mencionada comparación por 
medio de un bucle. Se evitan errores si las palabras entradas y las 
correspondientes de salida, o frases, se entran en las líneas DATA 
por parejas hermanadas y se leen, con una instrucción READ, por 
orden en la matriz correspondiente. Empecemos un nuevo programa 
con estas líneas que establecen los datos. 


5000 DATA cd dl E ] O E Y ; en El , "yg" 5 se 
D ESTOY","TU ESTAS", "TU ESTAS" ," 
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YO ESTOY", "YO SOY", "TU ERES", "TU 
ERES", "YO SOY" 


Volveremos a utilizar una búsqueda de cadenas que emplee la 
técnica de cadena deslizante dentro de un bucle que, de momento 
sólo presentará en pantalla la correspondiente palabra o frase, O$, 
que se adapta a la expresión entrada, T$ (véase el Diagrama de flu- 
jo 4.1). Una ventaja de este tipo de investigación es que encajará 
fácilmente los espacios de las frases ya que no se descompone la 
entrada I$ en palabras antes de la adaptación. 


IMPRIMIR 2.? 
PALABRA 
DE PAREJA 


Diagrama de flujo 4.1. Utilización de la respuesta coincidente 


100 INPUT I$: LET Ié$=I]3+" " 

110 LET ST=1 

200 RESTORE : FOR M=1 TO 4 

205 READ N$,0$: LET LWL=LEN (N$) 
210 LET Té=N$: GO SUB 5000: LET 
SP=15: IF SP>0 THEN  PRINT (%8: 
GO TO 100 

220 NEXT M 

250 GO TO 100 


Si ahora se aplica cualquier frase que contenga la palabra «TU», 
por ejemplo, el ordenador responderá con la que tiene asociada 
(«YO»). 

Resulta mejor volver a definir la palabra respuesta requerida en 
una nueva cadena que constituye la primera parte de la respuesta 
—R$—, y después imprimirla haciendo PRINT cuando se sale del 
bucle. 


210 LET Té=N$*: GO SUB Sad: LET 
SP=1S: IF SP>0 THEN  LET R$=0%$: 
Ga TO 230 

230 PRINT Ps$ 


Para tener una respuesta más completa se puede poner el resto 
de la frase, que permanece invariable, en otra cadena —S$— des- 
pués de insertar un espacio (véase el Diagrama de flujo 4.2). No 
es difícil definir el «resto de la frase». Se necesita restar la posición 
final de la palabra de la longitud de la expresión. Recuérdese que la 
variable SP señala el principio de la palabra asociada cuya longitud 
(LEN) se halla registrada en la variable WL. Por consiguiente, el final 
de la frase es: I5(SP + WL TO). 


210 LET Té=N*: GO SUB 5000: LET 
S5P=I3: IF SP=46 THEN GO TO 220 
215 LET Ré=0$: LET S$é=" "+I%(SP 
+HHL TAO > 

230 PRINT R$¡S 


Ahora podemos probar: 


YO SOY INTELIGENTE 
y el ordenador está de acuerdo: 
TU ERES INTELIGENTE 


Pero no es muy cierto pues no hemos descargado las variables 
alfanuméricas I$, R$ y S$ antes de iniciar el bucle para la nueva 
entrada. 
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TOMAR 
FRASE 
ENTRADA 


OUITAR 


1.*? PALABRA 


AÑADIR UN 
ESPACIO 
DELANTE 


IMPRIMIR 
RESPUESTA 


COINCIDENTE 


IMPRIMIR 


Diagrama de flujo 4.2. Una respuesta más completa 


100 LET I$="": INPUT 1%: LET 1$ 
=]+$+" 5" 
240 LET R$="": LET S$="" 


Antes de que nos creamos demasiado inteligentes, probemos: 
SOMOS PURO ESPIRITU 
que puede sorprendernos cuando nos responda: 


YO 


SI pensamos un poco en el problema nos daremos cuenta que 
nuestra palabra clave se encuentra dentro de otra palabra en esta 
frase en particular (la última sílaba de espíritu es el pronombre 
personal TU, de aquí que.nos responda con YO). 
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Aunque cada palabra clave se va analizando por orden, sólo 
entra en R$ cuando se encuentra identidad o coincidencia, por lo 
«¡ue únicamente se informa la última que cumple esta condición. 
Dido que la palabra clave sólo se comprueba una vez 'en cada frase, 
las sílabas YO o TU originan problemas cuando no son la palabra 
esencial de la frase. 

Para resolver esto hay que considerar cuáles son las palabras 
clave que pueden producir problemas. Debemos tratar todas las pala- 
bras clave de la misma manera, por lo que añadiremos un espacio 
1 cada una. Obsérvese que no hay necesidad de añadir espacios al 
tinal de las respuestas. 


0 a a DATÉÁ 11 YU 5" p "TU su ; "PU u ; $” y a !u ¡ 
"ya ESTOY *,*TU ESTAS" ,"TU ESTAS 

", "YO ESTOY*,"YO SOY ","TU ERES 
OUT ERES. “4 YO SOY” 


También necesitamos sustraer un carácter menos de I$ para lograr 
S$ ya que el espacio ha entrado a formar parte de la palabra clave. 


215 LET Ré=0$: LET Sé=" "+I$CSP 
+WL TO >) 


Ahora el ordenador estará de acuerdo sobre la pureza de espíritu. 

Si la primera palabra clave no se encuentra al principio de la 
frase, todo lo que hay delante de ella será ignorado en la respuesta. 
Por ejemplo, la réplica a: 


¿QUE PASA SI YO ESTOY HABLANDO? 
será: 
¿TU ESTAS HABLANDO? 
Sin embargo, añadiendo más palabras clave adecuadas en instruc- 


ciones DATA se lograrán mejores resultados, aunque algunas combi- 


naciones no sean aceptables. 
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200 RESTORE : FOR M=1 TO 6ó 
2010 DATA "NOSOTROS *,"NOSaTROS”" 
¿CELLS q "ELLOS" 


La adopción de decisiones lógicas por parte del ordenador 


Hasta ahora nuestro ordenador sólo ha demostrado una inteligen- 
cia ligeramente superior a la de un loro ya que sólo ha devuelto 
una versión muy parecida a la que se ha entrado. La fase siguiente, 
en consecuencia, será la adopción de algunas decisiones lógicas en las 
respuestas derivadas de la expresión que se aplique. 

Se definen variables para acoger el número de sujetos —SU— , 
verbos —VB— y respuestas —RP—-., de manera que puedan desarro- 
llarse fácilmente los programas. Con SU se define el número de suje- 
tos reconocidos en las frases de entrada y salida, con VB los verbos 
y RP contiene las correspondientes respuestas. 

_1 O LET SlUi=14: LET VE =7: LET RP 
— 

Las primeras dos líneas de instrucciones DATA contienen sujetos 
de entrada y salida emparejados (véase la Tabla 4.1). Como los pro- 
nombres personales (Yo, Tu, etc.), están frecuentemente encadenados 
a otras palabras para formar frases (como YO HE o YO TENGO), 
estas formas combinadas también se incluyen como datos. Obsér- 
vese que están ordenados de tal forma que se hallará en primer 
lugar la frase más completa que contenga una palabra clave. Se 
añade un espacio al final de cada elemento para evitar problemas 
de adaptaciones parciales y se forma automáticamente un espacio en 
la respuesta. 


9000 DATA "YO HE ","TU HAS ","TU 
HAS " : $ Yú HE " ; "TU s ; "Y 0 " ] "Yo 
0 "TU ","NOSOTRÚS HEMOS ","VOSOT 
ROS HABEIS ", "VOSOTROS HABEIS ", 
"NOSOTROS HEMOS ", "VOSOTROS ","N 
OSOTROS ","NOSOTROS ", "VOSOTROS 
8 ; 8 EL HÉ 14 « n EL HA ” 5 " ELLA HÁ $“ 5 ' 
ELLA HA “ : “ EL ut ] n EL 3 ; 1 ELLA ” ! ! E 
LLA ","ELLOS HAN ","ELLOS HAN ", 
"ELLOS ","ELLOS " 
608 


Tabla 4.1. Pares de sujetos de la variable SU(N,N) 


ENTRADA 


YO HE 

YO TENGO 
YO SOY 

YO ESTOY 
TU HAS 

TU TIENES 
TU ERES 

TU ESTAS 
TU 

ELLA TIENE 
ELLA ES 
ELLA ESTA 
ELLA HA 
ELLOS HAN 
ELLOS SON 
ELLOS ESTAN 
ELLOS 

EL HA 

EL TIENE 
EL ES 


EL, 

VOSOTROS HABEIS 
VOSOTROS TENEIS 
VOSOTROS SOIS 
VOSOTROS ESTAIS 
ELLA 

NOSOTROS TENEMOS 
NOSOTROS HEMOS 
NOSOTROS SOMOS 
NOSOTROS ESTAMOS 
VOSOTROS 
NOSOTROS 

YO 


SALIDA 


TU HAS 

TU TIENES 

TU ERES 

TU ESTAS 

YO HE 

YO TENGO 

YO SOY 

YO ESTOY 

YO 

ELLA TIENE 

ELLA ES 

ELLA ESTA 

ELLA HA - 

ELLOS HAN 

ELLOS SON 

ELLOS ESTAN 
ELLOS 

EL HA 

EL TIENE 

EL ES 

EL ESTA 

EL 

NOSOTROS HEMOS 
NOSOTROS TENEMOS 
NOSOTROS SOMOS 
NOSOTROS ESTAMOS 
ELLA 

VOSOTROS TENEIS 
VOSOTROS HABEIS 
VOSOTROS SOIS 
VOSOTROS ESTAIS 
NOSOTROS 
VOSOTROS 

TU 


Nota: No se han puesto todos en el listado para no hacer el programa demasiado largo. 
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La siguiente línea DATA contiene los verbos principales. Los 
verbos auxiliares, ser, estar, haber y tener, se han omitido premedi- 
tadamente ya que muchas de sus formas se incluyen con los sujetos. 
Ampliando datos se podrían completar en todas sus formas y conju- 
gaciones. 


2060 DATÁ "ODIO ","AMO ","TRABAJ 
ADO ", "SIENTO ","PAREZCO ","TENI 
DÓ " 5 $ SE " 


El último conjunto de datos contiene las respuestas. Para hacer 
las cosas fáciles de entender y adaptar en esta fase todas las respues- 
tas contienen el verbo original, aunque, por supuesto, puede decirse 
cualquier cosa. 


070 DATA "TAMBIEN, Y EN ESPECIAL 
A LOS ENGREIDOS ", "MUCHO MÁS ", 
"HECHO EL VAGO ","LO MISMO ","TA 
MBIEN COMO MUCHOS *,"TENIDO CONS 
TANCIA ","TAMPUCO,DADAS LAS CIRC 
UNSTANCIAS " 


Cómo se halla la coincidencia o identidad 
entre los elementos comparados 


La primera variable SU empareja los datos que son leídos y la 
cadena de entrada se compara con la lista de sujetos —N$— (Véase el 
Diagrama de flujo 4.3). Si no existe identidad o coincidencia en la 
comparación, si no se corresponden cadena y sujeto, se pide otra en- 
trada O bien la variable alfanumérica A$ se hace igual a la palabra 
idéntica mientras B$ toma la recíproca. Una variable de coinciden- 
cia o identidad de sujeto —SM— adquiere el valor del número de or- 
den del sujeto con el que se corresponde —M—. 


10 LET sU=id: LET UB=?:* LET RP 


100 LET Ié=" *: INPUT I$: PRINT 
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I$: LET I$=1I$+" ” 

105 IF 1$€ TO 9="ALTO" THEN P 
RINT "ALTO": STOP 

200 RESTORE 000: FOR M=1 TO su 

210 READ N$,0$: LET WL=LEM (N$> 

220 LET Té=N$: GO SUB 5000: LET 

SP=IS: IF SP>0 THEN  LET As=N+: 

LET B$*=0$: LET S5M=M: GU TO <=00 

230 NEXT M 

290 60 TO 100 


NO 
¿SUJETO ¿TODOS $ 
COINCIDENTE? COMPARADOS? 


INICIALIZACION 


PUNTERO 
COINCIDENCIA 

SUJETOS 

¿VERBO ¿TODOS 
COINCIDENTE? COMPARADOS? 

Si 
INICIALIZACION 
PUNTEROS 

COINCIDENCIA 


VERBOS 


RESPUESTA 
VERBO 
COINCIDENTE 


AÑADIR 
RESPUESTA 


SUJETO 
COINCIDENTE 


IMPRIMIR 
RESPUESTA 


Diagrama de flujo 4.3. Establecimiento de los punteros de coincidencia 
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Todos los verbos (VB) de las instrucciones DATA se comparan 
con I$. Si no se encuentra el verbo, se rechaza la entrada y si se da 
con él se hace igual a M la variable de identidad o coincidencia VM. 
Obsérvese que el puntero de datos (DATA) debe restablecerse (RES- 
TORE) en la línea 9060 cuando se salta de la lista de sujetos. (Los 
verbos se ponen en la forma en que aparecerán en las frases de entra- 
da para permitir la identidad.) 


304 RESTORE 9060: FOR M=1 TO UB 
310 READ VU$: LET LWL=LEN (U$) 
320 LET T$=V%: GO SUB 5000: LET 
SP=1S5: IF SP>0 THEN  LET UM=M: 
Ga Ta 560 

330 NEXT M 


I.a confección de las respuestas 


Ahora que se ha hallado la coincidencia o identidad entre el su- 
jeto y el verbo, se puede escoger la respuesta apropiada utilizan- 
do VM como puntero en los datos de respuesta que empiezan en la 
línea 9070. 


0d RESTORE 9070: FOR N=1 TO UM 
READ R$: NEXT N  ' 


En el caso más sencillo basta con añadir el sujeto apropiado 
(AS) delante de R$ antes de ordenar su presentación. 


320 LET Ré=AS+R$ 
230 PRINT R$ 
35604 GO TO 100 


Ahora, por ejemplo, si se introduce la frase: 


YO ODIO LOS ORDENADORES 
12 


el programa responderá: 

YO TAMBIEN, Y EN ESPECIAL A LOS ENGREIDOS 
y: 

YO PAREZCO MUY LENTO 

la respuesta generada será: 


YO TAMBIEN, COMO MUCHOS 


El cambio de la variable del sujeto para simplificar el procedimiento 


Si se prefiere que la máquina esté de acuerdo con nosotros en lu- 
gar de tratar de apabullarnos, basta con cambiar la variable del suje- 
to —A$— por la que contiene el segundo elemento de la pareja (BS). 


320 LET Rée=B$+R$ 


Si ponemos ahora: 
NOSOTROS HEMOS TRABAJADO MUCHO 
Se responde: 


VOSOTROS HABEIS HECHO EL VAGO. 


Hay que tener en cuenta que el verbo en la lista correspondiente 
ha de estar en la misma forma que en la pregunta planteada ya que 
la coincidencia se establece entre ambos y sólo se logrará cuando los 
dos sean iguales. La respuesta, sin embargo, se puede poner como se 
desee. Si la frase es: 


YO SE MUCHO 


la lista de verbos ha de incluir: ...«SE»...; y la variable que contiene 
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las respuestas —R$— llevará la réplica que corresponde al mismo or- 
den en que está la citada forma verbal. La respuesta pudiera ser: 


TU TAMPOCO, DADAS LAS CIRCUNSTANCIAS 


Para una forma con más variedad podríamos escoger al azar uno 
de los dos sujetos emparejados con las siguientes líneas del listado 
pero esto nos acarrearía una nueva explicación ya que el verbo cam- 
bia al variar la persona. Sólo sería aceptable cuando la respuesta fue- 
ra poco precisa, como sucede en los ejemplos. 


510 LET RS=INT C¿2*RND> 

515 IF RS=0 THEN LET R$=A$+R$: 
GO TO 350 

530 LET R$=BS$+R$ 


Sería posible procesar las respuestas cortando su cadena por el 
verbo, separando la raíz y la terminación para incorporar la que es- 
tuviera acorde con el sujeto, pero ello alargaría considerablemente el 
programa en esta fase. 


La adaptación del sujeto al contexto 


Si la elección del sujeto se hiciera de acuerdo con el contexto de 
la respuesta, el procedimiento sería más adecuado, pero para hacerlo 
necesitamos unos marcadores para ella. Vamos a utilizar la barra 
(/) para indicar que seleccionamos el primer elemento de la pareja de 
sujetos y un asterisco (*) para el segundo. 


2470 DATA "/CREO QUE TE ODIO A T 
] TAMBIEN ","“LAS AMO MAS QUE TU 
" "*ESTUDIADO MUCHO ","*NO SIEN 

TES UN PIMIENTO ","*PARECES UNA 

TORTUGA ","*HECHO EL VAGO ","*NO 
SABES NADA " 
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Se puede buscar en la cadena R$ señalada por el marcador de or- 
den de los verbos —VM— la existencia de la barra (/), siempre que 
la pongamos bajo otro nombre como I$, antes de aplicar la rutina de 
coincidencia (INSTR). Si se encuentra la barra, se añade el contenido 
del primer elemento del par de sujetos (A$) a la respuesta R$, sus- 
trayendo el primer carácter (la barra). (Véase el Diagrama de flu- 
jo 4.4.) 


DE PAR. 
SUJETOS 


AÑADIR 
2.? PARTE DE 
PAR. SUJETOS 


Diagrama de flujo 4.4. Adecuación del sujeto al contexto 


3510 LET I$=R$: LET Wi=1: LET T$ 
="/" GO SUB 5000 

320 IF 1520 THEN 60 TO $00 

800 LET ReE=Á$S+R$CZ TO > 

810 GO TO 530 


SI no se encuentra la barra en la respuesta se hace una nueva bús- 
queda para encontrar el asterisco y, si se da con él, se utiliza el segun- 
do elemento de la pareja de sujetos (B$) de análoga forma. 


530 LET T*="x*":* GO SUB S000 
53404 1F 1S8>0 THEN 60 TU 820 
820 LET R$=B$+R$(2 TO > 

¿230 6a TO 550 


El ejemplo: 


YO AMO LAS PLANTAS 
75 


nos dará 
YO LAS AMO MAS QUE TU 


y 


YO HE TRABAJADO INTENSAMENTE 
producirá: 
TU HAS ESTUDIADO MUCHO 
La frase: 
YO ODIO A LOS ORDENADORES 
dará origen a la réplica: 


YO CREO QUE TE ODIO A TI TAMBIEN 


lI.a inserción del sujeto en las frases 


Para hacer las cosas más sencillas siempre hemos empezado las 
respuestas con el sujeto pero en la vida real normalmente no es este 
cl caso. Ahora que ya tenemos los marcadores en las respuestas para 
indicar el tipo de sujeto que se ha de incorporar, también podemos 
usarlos para señalar donde insertarlo. Primero, modificaremos la ins- 
trucción DATA para que la palabra que se va a introducir no esté 
nunca en primer lugar ya que entonces no ha lugar a la inserción. 


2070 DATÁ "ESTO ME HACE PENSAR ( 
UE CREO QUE - TE CDIO A TI TAMBI 
EN ", "PERO -* LAS ÁMO MAS QUE TU 

", "PERO ES POSIELE QUE * ESTUDIA 
DO MUCHO ","NO PRESUMAS DE CIDO 

FINO QUE * Nd SIENTES NI EL ESTA 
MPIDO DE UNA TRACÁ ","PERDONA,PE 
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RO * PARECES UNA TORTUGA ","Yda € 
REO MÁS BIEN QUE * HECHO EL VAGO 
", "NO PRESUMAS QUE * NO SABES N 
ADA " 


Ya tenemos un registro para hacer la inserción puesto que la va- 
rible IS nos dice donde se encuentra dentro de la respuesta la barra 
o ul asterisco. Todo lo que precisamos es separar la parte de la res- 
puesta que está delante del marcador, R$(TO IS — 1), añadir la ver- 
,.1Ón adecuada del sujeto (A$ o B$) y poner a continuación la parte 
restante, R$(IS + 1 TO). 


S00 LET Ré=R*$í TO IS-13)+A$+R$f 1 
S+1 TO? 

320 LET Ré=Réí TO IS-1>+B+%+R+CI]1 
S5+1 TO) 


Ahora: 
YO ODIO LOS ORDENADORES 


produce: 


STO ME HACE PENSAR QUE CREO QUE YO TE ODIO A TI 
TAMBIEN 


y: 

YO AMO LAS FLORES 

nos da: 

PERO YO LAS AMO MAS QUE TU 


Aunque hemos puesto los sujetos en la respuesta de una forma 
más natural, sólo utilizamos uno en cada frase. Otra pequeña modi- 
ficación nos permitirá poner cualquier número de ellos. Todo lo que 
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TOMAR AÑADIR 
BUNTERO. EXTREMO , a EXTREMO 
COINCIDENCIA IZQUIERDO DE AR CEUIErOS DERECHO DE 
RESPUESTA : RESPUESTA 
REINICIALIZAR 
PRINCIPIO 
BUSOUEDA 
INICIALIZAR TOMAR AÑADIR AÑADIR 
ENE IZOUIERDO DE 2." PARTE DE SERCCHO DÉ 
COINCIDENCIA RESPUESTA PAR. SUJETOS RESPUESTA 


Diagrama de flujo 4.5. Inserción en una frase 


hemos de hacer es mantener la búsqueda de los marcadores hasta que 
no se encuentre ninguno más. Una variable de iniciación, ST, recibe 
cl valor 1 en la línea 505 y después se hace la búsqueda del primer 
tipo de marcador. Cuando se encuentra, se suma una unidad a la po- 
sición de coincidencia. Cuando R$ ha sido modificado por la línea 800, 
necesitamos regresar a la 510 para buscar más marcadores. Si no se 
encuentran más para el primer marcador se restablece a 1 nuevamente 
la variable ST. El segundo tipo de marcador se investiga de la misma 
manera. 


' THEN  LET ST=IS+1: 


9390 LET I$=FR+: LET Té+="x*": GO S 
UE 5000 

9940 IF 150 THEN LET ST=IS+1: 
GO TO 820 

810 60 TO S10 

230 60 TO 530 

2070 DATA "ESTO ME HACE PENSAR GQ 
UE CREO QUE ODIO MUCHAS COSAS, 
ESPECIALMENTE * *,"PERO / LAS AM 
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O MAS QUE * ","PERO ES POSIBLE Q 
UE * ESTUDIADO MUCHO, *SIDO CONST 
ANTES ","NO PRESUMAS DE OIDO FIN 
O QUE * NO SIENTES NI EL RUIDO D 
E UNA TRACA,NI * NI / OIMOS BIEN 

","PERDONA,PERO * PARECES UNA T 
ORTUGA COMO .-*,"YO CREO MAS BIEN 

QUE *HECHO EL VAGO ","NO PRESUM 
AS, QUE *SÁBES COMO “¿NADA " 


Y ahora: 
YO SIENTO EL RUMOR DEL AGUA 
nos da: 


NO PRESUMAS DE OIDO FINO QUE TU NO SIENTES NI EL 
RUIDO DE UNA TRACA, NI TU NI YO OIMOS BIEN 


y: 
NOSOTROS HEMOS TRABAJADO CON SUERTE 
lo que nos da: 


PERO ES POSIBLE QUE VOSOTROS HABEIS ESTUDIADO MU - 
CHO, VOSOTROS HABEIS SIDO CONSTANTES 


El caso de la divergencia entre el sujeto y el objeto 


Parece que todo va marchando bien hasta que probemos algo co- 
mo esto: 


YO ODIO TU MIRADA 


que nos da: 


ESTO ME HACE PENSAR QUE TU ODIAS MUCHAS COSAS, 
ESPECIALMENTE YO 
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El problema surge porque nos salimos de la rutina de búsqueda 
tan pronto como se encuentra la primera identidad o coincidencia. 
Aunque andamos buscando el sujeto YO, encontramos primero el ob- 
jeto TU ya que éste se halla antes que el pronombre personal YO en 
la cadena de sujetos y por consiguiente es hallado primero aunque 
ocupe el segundo lugar en la frase. 

Como no podemos reproducir todos los recursos del cerebro hu- 
mano, habrá que suponer que el sujeto siempre está delante del verbo 
y que el complemento objeto le sigue. En el programa hasta ahora 
hemos buscado el sujeto antes que el verbo por lo que tendremos que 
invertir el orden sustituyendo las líneas 200 a 240 por sus equivalen- 
tes, de la 400 a la 440. La posición del verbo en la entrada es el valor 
de SP cuando ya ha sido encontrado. Conservaremos dicho valor en 
una variable indicadora de posición del verbo (VP). 


320 LET T$=U%: GA SUB 5000: LET 
SP=IS: IF SP>0 THEN  LET UM=M: 
LET VP=SP: GU TA 400 


Ahora cuando se encuentra la identidad o coincidencia en la ca- 
dena de sujetos, comparamos su posición SP con VP y rechazamos la 
identidad si se halla después del verbo. (Véase el Diagrama de flu- 
O 4.6.) 


900 RESTORE 2000: FOR M=1 TO su 
205 READ N$,0%$: LET LUL=LEN £N$> 
910 LET Té*=N$: GO SUBE 5000: LET 
SP=13: IF SP>0 AND SP<UP THEN 
LET AF=N$: LET E*=0%: LET SM=M: 
4 TO 300 


Soluciones para la complejidad de diferentes formas verbales 


l.as múltiples formas del verbo en tiempos y personas crean un 
problema de gran complejidad que puede resolverse ampliando ex- 
(raordinariamente el programa. Si no hay problema de memoria y de 
tiempo (si el programa se escribe en BASIC), es posible extender los 
80 


¿COINCIDENCIA 
VERBO? 


INICIALIZAR 
COINCIDENCIA 
VERBO (VM) 


INICIALIZAR 
POSICION 
VERBO (VP) 


¿COINCIDENCIA 
SUJETO? 


¿SUJETO 
DESPUES DEL 
VERBO? 


INICIALIZACION 
COINCIDENCIA 
SUJETOS (SM) 


Diagrama de flujo 4.6. Rechazo de las coincidencias de objetos (gramaticales) 
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tiempos de los verbos hasta incluirlos a todos y aumentar igualmente 
las instrucciones DATA que contengan las respuestas para adaptarlas 
a aquellos. Como se ve, hay posibilidades pero se escapan a las de un 
equipo como el considerado en este libro que, por otra parte, sirve 
perfectamente para la presentación y estudio elemertal de la cuestión. 

La introducción de los verbos con todas sus personas, como se ha 
hecho en el listado, obliga a modificar la variable que sirve para mar- 
car verbos —VM—. Esto ha de hacerse para que la posición encon- 
trada de la forma en cuestión pueda ser dirigida a la respuesta co- 
rrespondiente, so pena que preparemos una de ellas para cade perso- 
na del verbo, cosa que es posible y se brinda como idea al lector 
para que extienda el programa. Esta modificación consiste en que, 
como se han incluido todas las personas del presente de indicativo (6), 
habrá que dividir por este valor el de la variable VM, y ccmo nece- 
silamos un número entero que nos lleve a la respuesta corresnon- 
diente, introduciremos en la línea 320, además de las instrucciones 
que incorpora, LET VM = INT (M/6) + 1:LET VP = IS. 


a LET SU=14: LET (B=942: LET R 


¿0 DATA "ODIO ","ODIAS ","ODIA 
O YODIAMOS ","ODÍIAIS ", "ODIAN * 
AMO "CAMAS ", "ama ","AMBMOS " 
S"BMATS ", "AMAN ", "TRABAJADO "," 


TRABAJADO *", "TRABAJADO ", "TRABAJ 
ADO ", "TRABAJADO ","TRABAJADO ", 
"SIENTO ", "SIENTES ", "SIENTE "," 
SENTIMOS ","SENTIS ", "SIENTEN é, 
"PAREZCO ","PARECES ","PARECE ", 
"PARECEMOS ","PÁRECEIS ", "PARECE - 
HOY "TENIDO ", "TENIDO " "TENIDO 
" "TENIDO ", “TENIDO ","TENIDO ”, 
"SE " "SABES ","SABE ","SABEMOS 


O USABEIS ","SÁBEN " 


("omo cierre del capítulo se incluye el listado completo en su forma 
linal. No es un programa perfecto pues precisaría de una mejor ade- 
cuación de las respuestas posibles, de acuerdo con la persona en que 
ve halla el sujeto en la frase de entrada (aumentar el número de res- 
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puestas). No cabe duda que la inclusión de más verbos permitiría un 
dialogo más interesante y la extensión de las respuestas también sería 
conveniente. Lo que se ha expuesto en el capítulo puede servir de guía 
pura un mejor trabajo aunque es indudable que la tarea pendiente es 
de pran envergadura dada la estructura del idioma castellano. 


JU LET SU=14: LET VB=92: LET RE 


a 


100 LET l$=" ": INPUT "PONGA su 


FRASE ";1$: PRINT “1$: LET I$=1 
$+ 8“ 8 


105 1F 1$(€ TO 4)="ALTO" THEN P 
RINT "ALTO": STOP 
300 RESTORE 9040: FOR M=1 TO UB 
310 READ U$: LET LWL=LEN (U$) 
320 LET Té$=U$: GO SUB 5000: LET 
SP=1S: IF SP>0 THEN  LET UM=INT 
(M/ó6)+1: LET UP=SP: GO TO 235 
330 NEXT M 
335 IF M“é=INT (M/8) THEM  LET 
UM=UM—1 
400 RESTORE 2000: FOR M=1 TO su 
405 READ N$,0$: LET UWL=LEN (N$> 
410 LET Té=N$: GO SUB 5000: LET 
SP=1S: IF SP>0 AND SP<UP THEN 
LET AS=N*$: LET Bs$=0%$: LET SM=M: 
GO TO 500 
420 NEXT M 
S00 RESTORE 2070: FOR N=1 TO UM 
READ R$: NEXT ON 
505 LET ST=1 
510 LET I$=F$: LET vl=1: LET T$ 
="/"+ 60 5UB 5000 
520 1F 1350 THEN LET ST=I15+1: 
GO TO 200 
525 LET ST=1 
530 LET I$=R$: LET Té="x*": GO S 
VE 5000 
540 1F 150 THEM. LET ST=I15+1: 
GO TO 820 
83 
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550 PRINT R$ 
560 GO TO 100 

e00 LET Ré=F$( TO I1S-1)+4+4+R8c1 
S+1 TO > 

sio 0 TO 510 

820 LET Ré=R$(€ TO 1S-1>+B$+R$c1 
5+1 TO) 

230 G0 TO 530 

s000 FOR N=1 TO LEN (¿1$)-WL+1 
5010 IF I$(N TO C¿N+UL-13=T$ THE 
H  LET 15=N:* RETURN 

5020 NEXT ON 
S030 LET 15=0 

5040 RETURN 
3000 DATÁ "YO HE ","TU HAS ","TU 
HAS 5" á " YO HE “n , "FU "“ ; ' Ya A] d " YO 
" "TU ", "NOSOTROS HEMOS ",".OosoT 
ROS HABEIS ","VOSOTROS HABEIS ", 
"NOSOTROS HEMOS ", "VOSOTROS ","N 
OSOTROS ", "NOSOTROS ", "VOSOTROS 
3 a n EL HA y ; n EL HA 1) : 0) ELLA HA ”n ; u 
ELLA HA 2 ; 1 EL $" , " EL 15 ; ti ELLA í , " E 
LLA ", "ELLOS HAN ","ELLOS HAN ", 
"ELLOS ","ELLOS * 

2060 DATA "ODIO ","ODIAS ","ODIA 
" "ODIAMOS ","ODIAIS ","ODIAN " 
¿AMO ", "AMAS ","AMÁA ","AMAMOS " 
S"AMAIS ", "AMAN *", "TRABAJADO "," 
TRABAJADO ","TRABAJADO ", "TRABAJ 
ADO *, "TRABAJADO ", "TRABAJADO *, 
"SIENTO ","SIENTES ", "SIENTE "," 
SENTIMOS ","SENTIS ","SIENTEN ", 
"PAREZCO ","PARECES ","PARECE ", 
"PARECEMOS ","PARECEIS ","PARECE 
N ","TENIDO ","TENIDO ","TENIDO 
" "TENIDO ","TENIDO ","TENIDO ", 
"SE ","SABES ","SABE ","SABEMOS 
"| "SABEIS ", "SABEN " 

75070 DATÁ "ESTO ME HACE PENSAR Ll 
UE ¿TAMBIEN,COMO * ","PERO “MAS 
QUE * ","POSIBLEMENTE *TRABAJADO 
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MUCHO, *XFPERSEVERADO ","NI HAELAR 
¿NI *MI ¿SENTIMOS MUCHO ","PERDO 
NAR,PERO *XIGUAÁL QUE /","Y0 CREO 
MAS BIEN QUE *HECHO EL VAGO ",'N 
DO PRESUMIR,QUE *IGUÁL QUE ¿NADA 
DE MADÁ" 


Reglas para la construcción de las frases tal como está preparado 
el programa: 


1. El verbo ha de estar en alguna de las formas del vocabulario (es 
posible aumentarlo para tener más capacidad de respuesta). 

2. Son aconsejables las expresiones en primera O segunda persona, 
tanto en singular como en plural, pues las que se hagan en tercera 
persona tendrán una respuesta en la misma, lo que a veces tiene muy 
poco sentido. 

3. Para los tiempos compuestos del verbo sólo pueden hacerse frases 
con «trabajado» y «tenido», las únicas formas del vocabulario (línea 
9060). 

4. Hay que poner las frases con letras mayúsculas pues así están en 
los vocabularios. 


Indudablemente con estas ideas se puede extender el programa pa- 
ra darle más capacidad. Esto queda a la discreción del lector. 

La línea 105 se ha introducido para salir del programa poniendo 
como entrada (INPUT) la palabra ALTO. También se sale si se pulsa 
ENTER como entrada. 

Ejemplos de frases que pueden servir para probar el programa: 


Yo odio los ordenadores 

Tu amas las flores 

Yo he trabajado intensamente 
Nosotros sentimos el rumor del agua 
Vosotros pareceis algo torpes 

Ellos han tenido poca suerte 
Nosotros sabemos mucha informática 
Etc., Etc. 
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s. 
Dd 


Los sistemas expertos 


€ PP rr 


Un experto es una persona que sabe mucho sobre un determina- 
do tema y está capacitado para dar adecuado asesoramiento sobre 
él (la opinión del experto). Tal capacidad sólo se adquiere después de 
un largo entrenamiento y dilatada experiencia por lo que los expertos 
son desgraciadamente pocos y además raras veces se hallan a mano 
cuando los problemas necesitan su intervención. 

Los científicos han creado programas que realizan las funciones de 
tales expertos con la ventaja de poder reproducirse fácilmente para 
constituir un número prácticamente infinito que no necesitan hacer 
un alto para tomar el café, ni tienen sueño, ni solicitan aumentos de 
sueldo, etc. Por supuesto que el ordenador ha de ser totalmente lógi- 
co y sólo sigue las instrucciones creadas por el programador. Es inte- 
resante señalar que los autores de ciencia-ficción han imaginado cier- 
tos problemas cuando el súmmum de la experiencia (como HAL 
de 2001: Odisea en el Espacio o los robots positrónicos de Isaac Asi- 
rov) se enfrenta con hechos no previstos que no encajan con más 
de uno de los supuestos principales y que si no llegan a provocar el 
colapso del sistema sí que originan traumas «pseudo-nerviosos». 

Antes de empezar a hacer un programa para sistemas expertos de- 
bemos preguntarnos cómo actúa un hombre experimentado. 

- Consideremos primeramente la situación más sencilla, en la que 
un experto ha de encontrar la solución de un problema conocido. En 
primer lugar, pide la información que después compara con la que 
posee y traía de comprobar si existe correspondencia entre ellas. Fi- 
nalmente expresa si se ha ivgrado o no tal correspondencia o iden- 
tidad. 
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l.o que necesitamos pues es simplemente un programa de base de 
datos que trate de adaptar la información de entrada con la que tiene 
«almacenada (véase el Diagrama de flujo 5.1). Un sistema amistoso 
aceptaría un lenguaje natural (véanse los capítulos anteriores) pero, 
para no complicar las cosas, nos sujetaremos a un formato de entrada 
fijo. Para empezar tratemos de reconocer los sonidos que emiten 
ciertos animales. Estableceremos parejas de datos en las que la prime- 
ra palabra —QS6— contiene los sonidos conocidos y las segundas 

A$-— los nombres de los animales. 


INTRODUCIR 
RUIDO 


OS 
COMPROBADOS? 


INSERTAR EN IMPRIMIR 
LA FRASE «LO SIENTO » 


IMPRIMIR 
LA RESPUESTA 


Diagrama de flujo 5.1. Un «experto» simplificado 


2000>DATAÁ * MAULLA","GATO"," LAD 
RA", "PERRO"," MUGE","BUEY"," ULU 
LA","BUHO"," RELINCHA","CABALLO" 


Ahora sólo necesitamos pedir un animal y compararlo con los 
contenidos en la variable Q$. 
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S REM RUTINA PARA ABRIR INTER 
ROGANTE. ¿PULSAR LA "1" DE LA PRE 


GUNTA EN MODO GRAFICO) 
10 RESTORE 10: FOR N=1 TO ?: R 
EAD A: POKE USR "I"+N,A6: NEXT Ns: 
DATA 2,0,2,14,16,17,14 
20 PRINT “*"IGUE SONIDO EMITE 
Eb 
30 INPUT 1%: PRINT I$:"2?" 
235 IF 1%% TO 223="FIN" THEN ST 
oP 
40 RESTORE 000: FOR N=1 TQ 5: 
READ 0$,6%: IF I$=A4$ THEN GO T 
a 20 
50 NEXT ON 
¿0 PRINT "LO SIENTO,NO SE QUE 
RUIDO HACE ESE ANIMAL" 
70 GO TO 20 
20 PAUSE. 50 
100 PRINT "EL "¡At¡0%s 
105 PAUSE 100 
110 60 TO zo 
2000 DATA " MAULLA","GATO"," LAD 
RA", "PERRO"," MUGE", "BUEY"," ULU 
LA", "BUHO"," RELINCHA", "CABALLO" 


IGUE SONIDO EMITE EL EUHO”? 
EL BUHO ULULA 


IQUE SONIDO EMITE El FERRO? 
EL PERRO LADRÉ, 


IGUE SONIDO EMITE EL EluEY”? 
EL BUEY MUGE 


Llegados a este punto quizás deberíamos decir que nuestro orde- 
nador experto puede realizar su tarea mejor que un ser humano ya 
que no hace juicios subjetivos, no llega a aburrirse con su trabajo ni 
se olvida de buscar toda la información en su memoria. 
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l.as comprobaciones secuenciales para hallar una solución 


El ejemplo anterior es muy sencillo ya que sólo se hace una pre- 
gunta y únicamente hay una respuesta posible. En realidad, tenemos 
que enfrentarnos a problemas más difíciles en los que la respuesta no 
puede encontrarse sin hacer una serie de preguntas. Por ejemplo, 
¿qué haría un experto si, al poner la llave del encendido de su coche 
y accionarla, no sucediera nada? 

Podría haber varias causas que provocaran esta inactividad: 


—BATERIA DESCARGADA 

-—MALAS CONEXIONES 
—CONMUTADOR AVERIADO 

—MOTOR DE ARRANQUE BLOQUEADO 
-—"MOTOR DE ARRANQUE AVERIADO 
--SOLENOIDE ROTO 


Para encontrar la causa se seguiría un camino lógico y se harían 
unas comprobaciones. La primera cosa sería averiguar si sólo es el 
motor de arranque el que no funciona: 


¿LUCE LA LAMPARA DEL ENCENDIDO? (S/N) 


Si la respuesta es «N», no existe energía en el conmutador por lo 
que la causa puede ser una de las tres primeras posibilidades citadas 
anteriormente. Es posible acercarnos más averiguando si las luces del 
coche funcionan: 


¿FUNCIONAN CORRECTAMENTE LAS LUCES? (S/N) 


Si la respuesta es «S», la batería no puede estar descargada y su 
cnergía se conecta correctamente al conmutador de luces. En conse- 
cuencia lo que debe fallar es el conmutador de arranque. Ya se puede 
sugerir que se sustituya. 


SUSTITUYA EL CONMUTADOR DE ENCENDIDO 


St las luces no funcionan, habrá que comprobar las conexiones. 
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¿ESTAN LAS CONEXIONES DE LA BATERIA EN BUEN OR- 
DEN? (S/N) 


Si se responde con un sí, la batería estará descargada y ya se pue- 
de decir que se cambie (o que se empuje el coche). 


CARGUE LA BATERIA O EMPUJE El COCHE 


De análoga forma se puede hacer una secuencia de comprobacio- 
nes para resolver un caso en el que hay energía pero no funciona el 
mecanismo de arranque (las tres últimas posibilidades). 

La forma más sencilla para programar esta estructura encadenada 
es por medio de una serie de instrucciones condicionales IF-THEN 
(véase el Diagrama de flujo 5.2). 


S RESTORE : FOR N=1 TO 7: REA 
DA: POKE USR "I"+N,A: NEXT N: D 
ATA 2,(4,2,14,16,17,19 

0 PRINT "DIAGNOSTICO DE LA AV 
ERIA" 

20 PRINT 

230 PRINT “*"ILUCE LA LAMPARA D 
EL ENCENDIDO? ¿SI N23" 

490 INPUT I$ 

SO IF I$*="S" THEN 60 TO 180 

$0 PRINT. *"IFUNCIONAN CORRECTA 
MENTE LAS" "LUCES? (¿3S-N)o" 

ZO INPUT I+ 

30 1F I$="S" THEN 60 TO 110 

0 PRINT *"SUSTITUYA EL CONMuT 
ADOR DEL" "ENCENDIDO" 

553 INPUT D$ 

100 RUN 

110 PRINT “"IESTÁN BIEN LAS CUN 
EXIONES""“"DE LA BATERIA? ¿5 N)" 

120 IMPUT I$ 

130 IF l*="S" THEN GO TO 14 

1490 PRINT “"REPARE LAS CONEXION 
ES" 

91 


¿LUCE LA 
LAMPARA 
DEL ENCENDIDO? 


SI 


RESPUESTA S/N 


NO 


¿FUNCIONAN 
LAS LUCES? 


SUBSTITUIR 
CONMUTADOR 


SI 


¿ESTAN BIEN LAS 
CONEXIONES? 


CARGAR BATERIA 
O EMPUJAR 


REPARAR 
CONEXIONES 


Diagrama de flujo 5.2. Un «experto» encadenado 


145 INFUT Ds 
1350 - FUN 
150 PRINT "CARGUE LÁ BATERIA OU 
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EMPUJE" 
165 INPUT D$ 
120 RUN 
180 PRINT "El PROGRAMA SEGUIRIA 
CON LOS” * "SINTOMAS MECÁNICOS" 


Este tipo de programa es relativamente fácil de redactar pero re- 
sulta ineficaz cuando se hace más largo y más complicado. 


La utilización de matrices, un medio adecuado para resolver 
problemas 


Una forma más eficaz de tratar la situación es poner el texto en 
matrices O tablas y disponer de punteros que dirijan a la cuestión o 
respuesta siguiente según se conteste si o no a la pregunta (véase el 
Diagrama de flujo 5.3). | 

El formato para la aplicación de los datos (DATA) para cada 
caso es: 


(TEXTO), (Puntero para el «Sl»), (Puntero para el «NO») 
La primera pregunta será: 
¿LUCE LA LAMPARA DE IGNICION? (S/N) ... 1 
Si la respuesta fuera «N», se precisaría hacer la segunda pregunta: 


¿FUNCIONAN LAS LUCES CORRECTAMENTE? (S/N) ... 2 


En otro caso se continuaría con otra parte del diagnóstico (que no 
se ha incluido pero que sería el punto 7). 

Tenemos que establecer tres matrices o tablas (arrays): OS(N) con- 
tiene el texto de salida, Y(N) el puntero para el «sí», y N(N) el pun- 
tero para el «no». Las matrices del sí y el no sólo tienen un carácter 
pero ia longitud (número de caracteres) (L) de la matriz ha de ser su- 
ficiente para darles cabida. Para que el programa sea fácil de modifi- 
car, se usa la variable NP para el número de puntos. Los datos se 
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INICIALIZAR 
POSICION 
ACTUAL (CP = 1) 


IMPRIMIR SALIDA 


¿PUNTERO 
SI =: 0? 


ENTRAR 
RESPUESTA 


¿RESPUESTA 
AFIRMATIVA? 


CP VALORADO 
POR N (CP) 


CP VALORADO 
POR Y 


Diagrama de flujo 5.3. Indicación de la salida siguiente 


leen en grupos de tres en cada elemento de estas matrices. Cuando el 
texto de los datos es un posible final del programa se indica poniendo 
acero los punteros Y(N) y N(N). 


S RESTORE S: FOR N=1 TO 7: RE 
4D Ar FOKE USR "I"+N,A: NEXT ON: 
DATA 2,0,2,14,16,17,14 
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10 60 SUB s000 
5000 LET NP=7: LET L=40 
8010 DIM O$<NP,L>: DIM Y<NP): DI 
MONENPO 
38020 FOR N=1 TO MP 
30230 READ (cm), YN) ¿NED 
38040 NEXT ON 
8050 RETURN 
5000 DATA "ILUCE Lá LAMPARA DE 1 
GNICION?",1,2 
2010 DATA "IFUNCIONAN CORRECTAME 
NTE LAS LUCES?",3,4 
5020 DATA "SUSTITUYA EL CONMUTAD 
OR DE EMCENDIDO",0,0 
5030 DATA "IESTAN BIEN LAS CONEX 
IONES DE LA BATERIA?",5,é 
7090 DATA "CARGUE LA BATERIA O E 
MPUJE",0,0 
050 DATA "REPARE LAS CONEXIONES 
070 
7040 DATA "RESTO DEL PROGRAMA-" 
0, 0 


La verdadera rutina de ejecución es muy sencilla. Se utiliza un 
puntero CP para indicar la posición de la matriz. Para empezar se po- 
ne en 1 y se presenta en pantalla el primer texto. Si se trata de un 
punto final Y(CP) = 0 (muy poco probable que ocurra al principio), 
se reinicializa CP en 1 para que empiece nuevamente la secuencia. Por 
otra parte, si encontramos un puntero no cero, se solicita un INPUT. 
Si la entrada es un sí («S»), CP adopta el valor contenido en el ele- 
mento apropiado de la matriz Y(N), y en otro caso, el de la ma- 


triz N(N). 


20 LET CP=1 
30 PRIMNT O*CCP) 
40 IF Y:CP?9=0 THEN Ga TO 20 


50 INPUT 1% 
35 IF li="F" THEN STOP : PEM 
LIMEA PÁRA TERMINAR =31] SE DESEA 
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¿50 1F 1$=">5"* THEN LET CP=Yi2CF 
232: 60 TO =0 

ZO LET CP=NECP> 

có 60 TO 30 


La aproximación paralela, un método eficaz 


Una alternativa al método de encadenamiento secuencial descrito 
anteriormente es una aproximación paralela que hace siempre todas 
las preguntas posibles antes de llegar a una conclusión. Este proce- 
dimiento es generalmente más largo que”una eficaz estructura en 
árbol pero es más probable que produzca la respuesta correcta ya que 
no se omiten puntos de comparación. 

Consideremos cómo se podrían distinguir diversas formas de 
transporte. 

Tendremos en cuenta ocho características y pondremos un 1 o 
un 0 por la presencia O ausencia de cada una de ellas para los cinco 
modos de transporte de la Tabla 5.1. 


Tabla 5.1. Presencia o ausencias de características 
Bicicleta Automóvil Tren Avión Caballo 


Ruedas 
Alas 

Motor 
Neumáticos 
Railes 
Ventanillas 
(Cadenas 
Dirección 


mr =-DO=00o-— 
=- OD=O0-=--=o- 
DO-=-rroro-— 
=D O mm 
=50590o090o0 


SI se examina detenidamente se observará que el conjunto de 
resultados varía para cada una de las diferentes posibilidades. Así 
pues, a través del análisis de las características, podrá establecerse 
en qué forma varían tales resultados. 

Introduciremos estos valores como datos (DATA) y los leeremos 
mediante la instrucción READ en una matriz bidimensional F(N,N) 
junto con otra que contenga los nombres de los vehículos OS$(N). 
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S ST q . E 
AD Á: ESE Dsñ' " MENA: Mco 
DATA 2,0,2,14,16,17,14 

10 60 SUB 82000 
100 PRINT "ITIENE RUEDAS?" 
500 INPUT "RESPONDA": INPUT I$ 
510 LET AN=1: IF le="N" THEN L 
ET AN=0 
520 FOR N=1 TO 5 
530 IF FAN, 190=AN: THEN  PRINT 70 


540 NEXT ON 
5404 STOP 
000 DIM 0Oé:5,7: DIM FiS5,2) 
ala RESTORE 000 

30 FOR N=1 TO = 

30 READ O$:H> 

s0 FOR M=1 TO 8 

READ FiN,M> 

NEXT Mi: NEXT E 

RETURN 

DATÁ "BICICLET%A",1,0,0,1,0, 
1 
3 
d DATA "ALUTOMOVUTL",1,04,1,1,0, 


CO GAGO ANnoqRcao 
Cr 
a 


A 


cda CA ca a ca Co da CO 
ODoDCa 


1 
O a 


Ja 
he 


DATÁ "TREM",1,0,1,0,1,1,0, 
DATA "AVION",1,1,1,1,0,1, ñ 


CE 


O DQO: 
Qu na 
LL 


7040 DATA "CABALLO",0,0,0,0,0,0, 
Dl 


Ahora podemos preguntar si se cumple la primera característica 
o no, y utilizar la respuesta para presentar las formas de transporte 
que se adaptan en este determinado momento (véase Diagrama de 
flujo 5.4). 

En este caso, la respuesta «S» nos dará una presentación como 
la que sigue: 


BICICLETA 
AUTOMOVIL 
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TIREN 
AVION 


y la respuesta «N» nos daría sólo: 


CABALLO 


¿TIENE RUEDAS? 


IMPRIMIR 
VEHICULO 


Diagrama de flujo 5.4. Un enfoque paralelo 
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Esto demuestra claramente una posible desventaja del método pa- 
ralelo pues, aunque acabamos de ver que sólo el caballo no tiene 
ruedas, el programa insiste para que continuemos haciendo las si- 
guientes preguntas antes de dar la respuesta. Esto no es tan grave 
como pudiera parecer a primera vista ya que si se responde «S» a 
la siguiente interrogación (¿tiene alas?) se verá que el ordenador 
se niega, muy lógicamente, a creer en caballos con alas. 

Si ponemos la parte de la comparación como una subrutina se 


INCREMENTAR 


PUNTERO 
MATRIZ (AP) 


NO 


¿COINCIDENCIA 
F(N,AP)? 


IMPRIMIR 
VEHICULO 


Diagrama de flujo 5.5. Comprobación de las características de una en una 


99 


puede utilizar para comprobar sucesivamente cada una de las ocho 
características. Necesitaríamos ligeras modificaciones: 'un puntero 
de matriz AP que se incrementa para hacer la comprobación del si- 
guiente elemento de la matriz F(N,AP) en cada ciclo (véase el Grá- 
fico de flujo 5.5). 


S RESTORE S: FOR N=1 TO 7: RE 
AD A: POKE USR "I"+N,A: NEXT N: 
DATA 2,0,2,14,16,17,14 
10 GO SUB 2000 

X 70 LET AP=0 

100 PRINT “"ITIENE RUEDAS?" 
Xx 110 60 SUB 500 
SL120 PRINT “"ITIENE ALAS?" 
*x 130 GO SUB 500 
*140 PRINT *"ITIENE MOTOR?" 
x150 GO SUB 500 
x1%40 PRINT “"ITIENE NEUMATICOS?" 
Xx 170 GO sue 5040 
Xx 180 PRINT “"INECESITA RAILES?" 
Xx170 60 SUE 500 
Xx 200 PRINT *"ITIENE VENTANILLAS? 
xz10 GO SUBE 500 
220 PRINT *"ITIENE CADENAS?" 
x230 GO SUB 500 
290 PRINT “"ITIENE DIRECCION?" 
x 250 60 SUB 500 
ago PAUSE U 
410 RUN 

S00 IMPUT I% 
XS10 LET AP=A4P+1: LET AN=1: 1F 1 
$="N" THEN. LET AN=0 

520 FOR N=1 TO 5 
Xx530 1F FM, AP)=AN THEN  PRINT 0 
$0 

530 NEXT N 
Xx s50 RETURT 

3000 DIM 0$:5,%: DIM Fc5,8) 
2010 FESTORE $000 

3030 FOR N=1 TO Ss 

100 


2040 READ O6cm) 
3050 FOR M=1 TO 8 

e0%0 READ FcH,m) 

3070 MEXT Mi NEXT OM 

2080 RETURN 

2000 DATÁ "BEICICLETA",1,0,0,1,0, 
0,1,1 

3010 DATA "AUTOMOVIL",1,0,1,1,0, 
1,0,1 


7020 DATA "TREN",1,0,1,0,1,1,0,0 
9030 DATA "AVION",1,1,1,1,0,1,0, 


1 | 
9040 DATA "CABALLO",0,0,0,0,0,0, 


Nota: Las líneas marcadas con un asterisco son las que se incorporan al listado anterior. Ahora puede suprimirse 
la 560 (STOP) pues con la 400 (PAUSE 0) se puede parar el pregrama con la instrucción BREAK para salir del bucle 


sin fin. 
La adaptación de las respuestas a los datos por el método de tanteo 


La rutina anterior presentará una lista de coincidencias o identi- 
dades para cada cuestión a medida que se va desarrollando pero no 
nos dirá qué conjunto de datos corresponde a la adaptación general 
de las respuestas a todas las preguntas. Podemos producir un TAN- 
TEO que muestre cómo las respuestas se adaptan a los datos por 
medio de una matriz de acierto S(N) para cada objeto que sólo se in- 
crementa cuando se halla una identidad F(N,AP) = AN (véase el 
Diagrama de flujo 5.6). 


S RESTORE 5: FOR N=1 TO 7: RE 
AD A: POKE USR "I"+N,A: NEXT N: 
DATA 2,0,2,14,16,17,14 
10 GO SUB 8000 
90 LET AP=0 
100 PRINT *"ITIENE RUEDAS?" 
110 60 SUB san 
120 PRINT “"ITIENE ALAS?" 
130 GO SUB 500 
140 PRINT “"ITIENE MOTOR?" 
150 60 SUB S00 
180 PRINT “"ITIENE NEUMATICOS?" 
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FIN, AP)? 


NO 
¿COINCIDE ¿TODOS LOS 
VEHICULOS COM 
PARADOS? 


IMPRIMIR 
OBJETO 


INCREMENTAR 
SIN) ACIERTOS 


Diagrama de flujo 5.6. Cálculo de las coincidencias 


170 GO S<UBE Soc 
180 PRINT *"INECESITA RÁAILES?" 
170 GO SUB 500 
200 PRINT *"ITIENE WENTANILLAS? 
210 60 SUB 500 
220 PRINT *“"ITIENE CADENAS?" 
2304 60 SUE S00 
2490 PRINT “"ITIENE DIRECCION?" 
250 GÓ SUE S00 

zs0 PRINT 

270 PRINT "PUNTUACION" 

x220 PRINT 

x-300 FOR N=1 TO S 

310 PRINT 0OB0N2, SiN 

X320 NEXT N 
ada PALISE UU 
410 RUN 
Ss040 INPUT I+ 
510 LET AP=64P+1: LET AN=1:* IF 1 
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$="N" THEM  LET AN=0 
520 FOR N=1 TO 5 
5230 IF FIN,AP)=AN THEN PRINT 0 
$(N»: LET S£N=SEND +1 
540 NEXT ON 
550 RETURN 
50 STOP 
8000 DIM 0$(5,2): DIM F£5,8) 
3010 DIM 55) 
8030 FOR N=1 TO 5 
8090 READ O$c0N) 
8050 FOR M=1 TO 8 
8080 READ FonN,M> 
8070 MEXT Mi: NEXT ON 
8080 RETURN 
2000 DATÁ "BICICLETA",1,0,0,1,0, 
0,1,1 
2010 DATA "AUTOMONIL",1,0,1,1,0, 
1,0,1 
7020 DATA "TREN",1,0,1,0,1,1,0,0 
9020 CATA "AVION", ,1,1,1,1,0,1,0, 
1 
2040 DATÁ "CABALLO",0,0,0,0,0,0, 
0.1 


Nota: Las lineas marcadas con un asterisco son las que se incorporan en esta fase. 


Si se encuentra una adaptación total, S(N) será igual a 8. Cuan- 
do uno o más puntos no han sido correctos, el tanteo se reducirá. De 
esta manera la puntuación por tanteo es particularmente útil cuando 
las respuestas correctas son más una opinión que un hecho (por ejem- 
plo, ¿tiene un caballo dirección?) ya que la puntuación más alta que 
se logra señala probablemente la respuesta correcta en cualquier caso. 
(Obsérvese que en este caso cada respuesta correcta tiene la misma 
ponderación.) 


Un método para ahorrar memoria y tiempo 


Se habrá advertido que se han tomado ocho características para la 
comparación y podrá pensarse que este valor no es accidental ya que 
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un octeto (byte) tiene ocho bits. Si consideramos cada característica 
como la representación de un número binario (véase la Tabla 5.2) 
más que como un valor absoluto, cada objeto podrá describirse como 
un solo número decimal que es la suma de dígitos binarios en lugar de 
ocho valores separados. Haremos la conversión a decimal con el bit 
menos significativo en la parte superior por lo que, al empezar por 
arriba con las ruedas, cada característica es equivalente a 1,2,4,8,16, 
32,64,128 en notación decimal, respectivamente. 


Tabla 5.2. Características expresadas por su valoración binaria 
Bicicleta Automóvil Tren Avión Caballo 


Ruedas 

Alas 

Motor 

Neumáticos 

Raiíles 

Ventanillas 

Cadenas 6 
Dirección 128 12 


bOooooo=-—- 
Um 

Ooonnornao-— 

ww ooooooo 


128 12 
Suma total 201 173 53 175 128 


No es difícil convertir nuestra puntuación O tanteo de l a 8 en 
cl correspondiente valor binario siempre que recordemos que el valor 
decimal del dígito binario —BV— debe doblarse cada vez que nos 
desplazamos hacia abajo, y que sólo necesitamos añadir el valor 
binario de la puntuación en cada momento si la respuesta es afir- 
mativa («S») (AN = 1, véase el Diagrama de flujo 5.7). 

Sr se piensa un momento, se advertirá que sólo necesitamos ana- 
lizar cl número total producido —S— agregando los valores bina- 
mos de las respuestas afirmativas. No es preciso hacer un bucle y 
analizar cada parte del contenido de la matriz cada vez, ni siquiera 
hace falta disponer de una matriz bidimensional. Los únicos datos 
que necesitamos entrar son los valores decimales de cada objeto, 
MN), y cuando se han hecho todas las preguntas se comparan 
aquellos valores con los decimales obtenidos por la conversión bi- 
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INTRODUCIR 
CARACTERISTICA 


PUNTUACION = 
PUNTUACION + 
VALOR BINARIO 


INCREMENTAR 
VALOR BINARIO 


Diagrama de flujo 5.7. Obtención de una puntuación binaria 
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S RESTORE 5: FOR N=1 TO 7: RE 
AD A: POKE, USR "I"+N,A: NEXT ON: 
DATA 2,0,2,14,16,17,14 
10 GO SUB 8000 
90d LET AP=0 
100 PRINT “"ITIENE RUEDAS?" 
110 60 SUB 500 
120 PRINT “"ITIENE ALAS?" 
130 60 SUB 500 
140 PRINT “"ITIENE MOTOR?" 
150 60 SUB 500 
140 PRINT “"ITIENE NEUMATICOS?" 
170 60 SUB 500 
130 PRINT “"INECESITA RAILES?" 
190 60 SUB Saa 
200 PRINT *"ITIENE VENTANILLAS? 


O UB 500 

PRINT *"ITIENE CADENAS?" 

GO SUBE 500 

PRINT *“"ITIENE DIRECCION?" 
GO SUB 500 

PRINT 

PRINT "PUNTUACION "¿SU 
PRINT 

FOR N=1 TO 3 

IF DIN>=SU THEN PRINT ,O0$< 
66 TO 40 

NEXT N 

PRINT "VEHICULO NO ENCONTRA 


AOS 
C2c00c0O0aan 


CN 


e Oya Cr 


ZE 
O (6 (0 0 GQ Ccó PaRa pá pa PA pa ra 
A 
(a 


a 


2400 PAUSE 0: STOP 
310 INPUT I$: RUN 
500 INPUT 1% 
*xS10 LET AN=1: IF I$="N" THEN  L 
ET AN=0 
520 1F AN=1 THEN  LET SU=SU+BU 
530 LET BU=BV+BU 
550 RETURN 
8000 DIM 085,92: DIM D(5): LET 
EU=1: LET SU=0 
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2000 DATÁ "BICICLETA", Z01 
2010 DATÁ "AUTOMOVIL", 172 
2020 DATA "TREN",S53 
2030 DATA "AVION",175 
x9040 DATÁ "CABALLO", 128 
X 5050 FOR N=1 TO S 
X 050 READ O$(N3,DUNA 

070 NEXT ON 

¿aso RETURN 


Nota: Las líneas marcadas con un asterisco son las que se incorporan en esta fase. 


naria de las respuestas «sí/no», SU (véase el Diagrama de flujo 5.8). 
Lo mejor ahora es borrar todo lo que sigue a la línea 260 y em- 
pezar a programar de nuevo. 


. IMPRIMIR 
PUNTUACION 


NO 
¿COINCI- ¿TODOS 
DENCIA VALOR COMPARADOS? 


DECIMAL? 


IMPRIMIR 
VEHICULO 
ADAPTADO 


Diagrama de flujo 5.8. Coincidencia con valores decimales 


Este enfoque del problema ahorra obviamente gran cantidad de 
memoria y tiempo ya que cada elemento de la matriz tiene varios oc- 
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letos (bytes) y debe localizarse antes de hacer la comparación, por lo 
que resulta extremadamente útil cuando se trabaja con grandes can- 
tidades de información. Por otra parte, esto quiere decir que hay que 
calcular los equivalentes decimales de cada caso antes de poder em- 
plearlos y tampoco nos da pista alguna cuando no se logra la coinci- 
dencia O identidad completa. (Téngase en cuenta que no es posible 
redondear los valores decimales ya que el valor equivalente de cada 
respuesta correcta depende de su posición.) 

Por supuesto, que los cálculos pueden hacerse por el lado difícil 
pero el Spectrum tiene una función binaria (BIN) por lo que basta po- 
ner en la instrucción PRINT una serie de dígitos binarios con el co- 
mando BIN. Ejemplo: 


I?RINT BIN 10101010 
(que nos dará el valor decimal 170. (No se olvide que la tabla se lee 


de arriba hacia abajo por lo que el octeto o byte menos significativo 
se Ice el primero.) 
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6 


El autoaprendizaje 
de un sistema experto 


Aunque los sistemas expertos que hemos descrito hasta ahora 
funcionan perfectamente, todos requieren que se les dé anticipada- 
mente las reglas correetas en las que basar sus decisiones y esto puede 
ser muy tedioso. 

Es posible, sin embargo, preparar un programa experto que 
aprenda de sus propios errores y establezca por sí mismo sus reglas 
de decisión siempre que pueda decirse cuándo se equivoca (aunque no 
dónde). Esto es, desde luego, una ventaja si uno no está muy seguro 
de cuáles son tales reglas correctas. En este caso empezamos con una 
serie de características que nos permitan distinguir entre diferentes 
objetos, pero sin un modelo predefinido de síes y de noes (regla de 
decisión) relativo a tales características, que pudiera guiarnos. En su 
lugar, utilizamos el propio programa para calcular el citado modelo. 

Trabajaremos con nuestro conocido ejemplo de medios de trans- 
porte y comenzaremos por establecer algunas variables. FE es el nú- 
mero de características a considerar (8); F$(N) es una matriz para 
contener sus nombres; F(N) contendrá los valores que se dan a cada 
caracteristica como entrada en un momento determinado (0 ó 1); y 
R(N) mantendrá los valores actuales de la regla de decisión de cada 
rasgo. 


 RESTORE_S: FOR N=1 T 
AD A: POKE USR "I"+N,A: 
DATA 2,0,2,14,16,17,1 
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10 
3004 
8014 


GO SUB £€000 
LET FE=3 
DIM F$(FE,11)3: DIM FCFE>: D 


IM RiFE) 


8020 
8030 
28035 
2040 
20010 
" , 1] N 
LLAS 
7010 


FOR N=1 TO FE 

READ FS$rN) 

PRINT FS$(N) 

NEXT ON 

DATÁ "RUEDAS" ,"ALAS", "MOTOR 
EUMATICOS","RAÁILES" , "VENTAN] 
", "CADENA", "DIRECCION" 
RETURN 


Cada característica se considera separadamente (véase el Diagra- 


ma de flujo 6.1) 


. Primero, para este ciclo, se pone a cero el valor de 


la característica —F(N)— y después se solicita una entrada de un «Sí/ 
No» en la variable I$. Si I$ es «S», el elemento del valor del F(N) se 
pone a 1; en otro caso, permanece en 0. Esto producirá un modelo 
que describe el objeto con ceros y unos en la matriz F(N). 


$0 
ZU 
e0 
20 
100 
110 


FOR N=1 TO FE 

LET F£N>=0 

PRINT Fé(N) 3" "; 

PAUSE 0 

INPUT "IS/N?";18: PRINT 1%, 
IF I$="5" THEN  LET F(N)=1 


120 NEXT ON 


Ahora la variable de decisión DE se pone a cero y se vuelve a 
calcular como la suma del valor presente de DE más cada uno de los 
valores del elemento F(N) que se ha entrado multiplicados por los va- 


lores actuales de 


125 

130 

1 50 

160 

170 
1/x 


la regla de decisión R(N). 


LET DE=0 

FOR N=1 TO FE 

LET DE=DE+FIN)*RIN) 
NEXT N 

PRINT "DE= *";DE 


VALOR ACTUAL 
CARACTERISTICA 
=1 


ODOS 


INTRODUCIA 7 
COMPROBADOS? 


CARACTERISTICA 


Si 


NO 


VALOR DE 
DECISION = 0 


IMPRIMIR 
VALOR 
DECISION 


NO 


Si ¿TODOS ACTUALIZACIÓN 
COMPROBADOS? VALOR 
DECISION 


¿ES LA 
BICICLETA? 


PONDERACION = 1 


PONDERACION = 0 j 
NO 


4 REGLA 
COMPROBADOS? IMPRIMIR REGL ACTUALIZADA 


Diagrama de flujo 6.1. Aprendizaje del método para distinguir entre dos objetos 


La distinción entre dos objetos y la autocorrección del sistema 


Para empezar consideraremos la situación más sencilla en la que 
haya sólo dos posibilidades: una bicicleta o un coche. Inicialmente 
hacemos la distinción entre ellos arbitrariamente. Establecemos que si 
el valor final de DE es igual o mayor que cero se trata de una bici- 
cleta; si es menor que cero, el vehículo es un coche. No importa que 
esto no sea verdaderamente cierto ya que el sistema se autocorregirá. 
Cuando el programa ha tomado una decisión sobre la base del valor 
de DE solicita confirmación del resultado. 
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1390 1F DE>=0 THEN PRINT "IES U 
NA BICICLETA? "3: INPUT "IS/N?"; 
1$: PRINT 1%: GO TO 200 

190 IF DEX<O THEN PRINT "TES UN 

COCHE? ": INPUT 1%: PRINT 1%: G 
a TO 220 


Se puede actuar de forma distinta según que la decisión del orde- 
nador haya sido correcta o no. En caso afirmativo, no se realiza nin- 
guna acción (una variable de ponderación WT se pone a cero) y el 
programa vuelve a probar otra vez. Si DE ha sido mayor o igual a 
cero, pero la respuesta era incorrecta, WT se pone a menos uno, 
mientras que si DE era menor que cero y la respuesta igualmente 
equivocada, WT se pone a más uno. 


200 IF I$="S" THEN LET WT=0: 6 
o TO 240 | 

210 LET LiT=-1: GO TO 2390 

220 IF I$="S" THEN  LET UT=04: 6 
O TO 240 

230 LET LiT=1 


El efecto de la variable de ponderación es el de modificar los valo- 
res de la matriz R(N), reduciéndolos cuando son demasiado altos y 
aumentándolos si son muy bajos. 


290 FOR N=i TU FE 

230 LET RIN2=RCON+FCUNA RUT 
260 PRINT RIN, 

¿70 NEXT N 

280 PRINT : PRINT 

¿20 Gd Ta “40 


l.a forma en que trabaja el sistema se verá mejor mediante una de- 
mostración. Ejecútese el programa (RUN) y sígase esta secuencia de 
entradas. (Obsérvese que los separadores se han puesto de tal forma 
que producen un formato de pantalla señalando claramente la rela- 
ción entre los valores de entrada y los valores de la regla de decisión.) 
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Introdúzcanse estos valores: 


RUEDAS S ALAS N 
MOTOR N NEUMATICOS — S 
RAILES N VENTANILLAS N 
CADENA S DIRECCION S 


El programa nos dará un valor de decisión DE igual a cero que 
es el inicial pues aún no se han producido modificaciones:' 


DE =0 


Puesto que DE es 0, el sistema supone que se trata de una bici- 
cleta y pide confirmación, a la que corresponde naturalmente la res- 
puesta «Si». 


¿ES UNA BICICLETA? S 


La presentación en pantalla del contenido de la matriz de control 
R(N) muestra que sus valores continúan siendo cero al producir la 
respuesta correcta por puro azar. 


0 0 
0 0 
0 0 
0 0 
Pruébese ahora a entrar esta secuencia que describe un automóvil: 
RUEDAS S ALAS N 
MOTOR S NEUMATICOS S 
RAILES N VENTANILLAS S 
CADENA N DIRECCION S 


DE sigue siendo cero. Así pues se ha logrado una conclusión erró- 
nea y se hace la pregunta equivocada, a la que hay que responder 
con un «No». 


DE =0 
¿ES UNA BICICLETA? N 
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Ahora, como se ha cometido una equivocación, la regla de deci- 
sión se modifica restando uno de cada valor de la matriz de control 
en que se respondió con un «Sí». El contenido de tal matriz queda 
ASE 


l 0 
1 —1 
0 —]1 
0 —] 


Si se aplican nuevamente los valores que describen un coche, el 
programa llegará a una respuesta correcta: 


RUEDAS S ALAS N 
MOTOR S NEUMATICOS —S 
RAILES N VENTANILLAS S 
CADENA N DIRECCIÓN S 
DE =-35 
¿ES UN COCHE? S 

1 0 

=] 


0 —] 
0 —]1 


Antes de sentirnos demasiado satisfechos probemos a entrar nue- 
vamente los valores para una bicicleta. ¡Respuesta equivocada! 


RUEDAS S ALAS N 
MOTOR N NEUMATICOS S 
RAILES N VENTANILLAS N 
CADENA S DIRECCION S 
DI: -- —3 
¿ES UN COCHE? N 

() 0 

0 

0 —] 

0 
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Sin embargo, las características positivas que son comunes a la 
bicicleta y al automóvil se incrementan ahora automáticamente en 
uno de forma que si nuevamente se repite esta última secuencia se 
tendrá una conclusión correcta. 


RUEDAS S ALAS N 
MOTOR N NEUMATICOS — S 
RAILES N VENTANILLAS N 
CADENA S DIRECCION S 
DE = 1 
¿ES UNA BICICLETA? S 

0 0 
—1 0 

0 —1 

1 


La situación se ha estabilizado ahora y el programa ya reconoce- 
rá siempre correctamente un coche y una bicicleta cada vez que se 
entren las características que los definen: 


RUEDAS S ALAS N 
MOTOR S NEUMATICOS — 5 
RAILES N VENTANILLAS $ 
CADENA N DIRECCION S 
DE = —2 
¿ES UN COCHE? S 

0 0 
—] 0 

0 —] 

l 0 


Obsérvese que el valor final de DE para la bicicleta es 1 y para el 
automóvil —2. Si se miran los valores de la matriz de control se ad- 
vertirá que éstos se corresponden en número y posición con las ca- 
racterísticas únicas que distinguen estos objetos (CADENA para la 
bicicleta y MOTOR y VENTANILLAS para el coche). 
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Ampliación del número de posibilidades que puede tratar 
un ordenador 


Aunque ya hemos logrado enseñar al ordenador algo, no es para 
echar las campanas al vuelo pues sólo ha aprendido a distinguir entre 
dos objetos. Expandamos el sistema para permitirle tratar con un es- 
pectro mayor de posibilidades (véase el Diagrama de flujo 6.2). Para 
empezar necesitamos definir el número de objetos que deseamos que 
reconozca —OB— , ponerles nombre en instrucciones DATA que po- 
damos leer, mediante la instrucción READ e incluir en una nueva ma- 
triz OS(OB), cambiar nuestra matriz de control de decisión a una 
forma bidimensional, R(FE,OB), que pueda albergar reglas para ca- 
da uno de los objetos separadamente, y establecer una matriz de de- 
cisión, D(N), que retenga valores de decisión para cada objeto. 


10 GO SUB 8000 
2000 LET FE=8: LET 0B=5 
32010 DIM F$(FE,11)>: DIM FCFE>: D 
IM _RCFE,OB>: DIM 0$(0B,8): DIM D 
(OB): DIM 0$£8,1) 
8015 RESTORE 2000 
3020 FOR N=1 TO FE 
8030 READ F$cN) 
3040 NEXT ON 
3050 FOR N=1 TO OB 
200 READ 0O$(N) 
8070 NEXT N 
2000 DATA "RUEDAS" ,"ALAS", "MOTOR 
" "NEUMATICOS" ,"RAILES","VENTANI 
LLAS", "CADENA", "DIRECCION" 
5010 DATA "BICICL.","AUTOMOV."," 
TREN", "AVION", "CABALLO" 
99799 RETURN 


“1 hear de tener una sola variable de decisión DE, necesitamos 
cta Gcterminar un valor de decisión para cada objeto cada vez. En 
cota cielo debemos poner primero DE a cero y después dar igualmen- 
je est valor a cada elemento de la matriz de decisión D(N), para 
“impezar a cero con cada objeto. 
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VALOR 
CARACTERISTICA 
CERO 


VALOR 
CARACTERISTICA 


IMPRIMIR 
CARACTERISTICA 


VALORES 


DECISION CERO an 


¿TODOS 
COMPARADOS? Y 


Si 


¿TODOS ACTUALIZACION 
COMPARADOS? VARIABLES 
¡ NN DECISION 


A 
COMPARADOS? 


Si 


DE = DIN) 
TS =5N 


IMPRIMIR LISTA 
DE OBJETOS 


si 


¿TODOS 3 
COMPARADOS? REGLAS <> <> ida 


ACTUALIZACION ¿TODOS si IMPRIMIR 
REGLAS COMPARADOS? REGLAS 


Diagrama de flujo 6.2. Aprendizaje de las reglas para un espectro 
más amplio de posibilidades. 


20 LET DE=0O 

230 FOR N=i TO OB 
40 LET DiN=( 

S0 NEXT N 


Los valores para cada característica se entran exactamente igual 


que antes. 
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¿0 FOR N=1 TO FE 

70 LET F£N>=0 

30 PRINT FS$(Np" "; 

50 INPUT "IS/N?";1$ 

100 PRINT 13, 

110 IF Ié$="S". OR I$="s" THEN L 

ET FtcM=1 

120 HEXTON 


Cada elemento de la matriz de decisión D(N), se actualiza ahora 
de acuerdo con el estado de los valores F(N) entrados y el contenido 
del apropiado elemento de la ordenación de control R(N,M). 


130 FOR N=1 TO FE 
190 FOR M=1 TO OB 
150 LET DM3=D(M>+FINORARON,M) 
150 NEXT Mi: NEXT ON 


Ahora necesitamos mirar si cualesquiera de los valores de decisión 
para todos los objetos son mayores o iguales al valor total de deci- 
sión DE. En este caso, hacemos una variable de puntuación máxima 
1'S Igual al número que produce la mejor adaptación, N. 


170 FOR N=1 TO OB 
120 IF DIN>>=DE THEN LET DE=D( 


Ni: LET T>5=eA 
170 NEXT A 


l.o mejor que puede adivinar el sistema es que esta es la respuesta 
correcta. Así que pide nuevamente confirmación y simplemente re- 
prosa a una nueva entrada sin hacer ningún cambio si la respuesta 
hue correcta. 


200 PRINT "IERÁ "j¡OBTS> 302"; 
¿10 INPUT "1S8N?*"*31$: PRINT I$ 
220 1F I$="S" OR I$="<" THEN 6 
o TG 20 
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Si esta no ha sido la respuesta correcta, los nombres y números 
de todos los objetos son presentados en pantalla y se pide el número 
de la respuesta acertada CR. (Las limitaciones de esta variable im- 
piden que el programa se interrumpa por la aplicación de un valor 
inadmisible). 


230 FOR N=1 TO 0B 
240 PRINT Nz" ";0$cN>, 

250 NEXT Ms: PRINT 

260 PRINT "ICUAL ERA?  "; 

270 INPUT CR: IF CR<1 OR CR>5S T 
HEN GO TO 270 

275 PRINT CR 


Se comprueba ahora si el valor de decisión para cada objeto 
D(N) es mayor o igual al total DE y si además el objeto considerado 
no es la respuesta correcta. Si ambas cosas son ciertas se vuelven a 
actualizar las reglas mediante la reducción de los valores de las ca- 
racterísticas correctas F(N) para hacerlos tender hacia el de la res- 
puesta acertada. 


280 PRINT TAB (8)>;"D(N) DE 
CR": FOR N=1 TO 08 

290 PRINT TAB (9);D£MD¡TAB (18) 

¡DE5TAB (22)CR 

300 1F D(N)>=DE AND N<>CR THEN 

FOR M=1 TO FE: LET R(M,N)=RCM,N 

)=FC(M): NEXT M 

310 NEXT N 


Ahora los valores de característica correctos F(N) se suman a la 
matriz de control para el objeto correcto para hacer que la tenden- 
cia vaya en sentido opuesto. 


320 FOR M=1 TO FE 
330 LET RiM,CR)=RIM,CR)+EFCM) 
340 NEXT M: PRINT 
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Finalmente se presentan en pantalla los valores de las matrices 
de control para que pueda verse lo que está sucediendo. 


350 FOR M=i TO OB 

360 FOR N=1 TO FE 

370 PRINT TAB (Ne3)-3¿RiN,M>; 

380 NEXT N 

370 PRINT TAB (293 ¡0$(M) 

900 MEXT M 

410 RESTORE 3940 

420 FOR N=1 TO FE 

430 READ QUéLN> 

440 PRINT TAB ¿N*3-3;0$(N.) ; 
4950 NEXT N 

4£0 DATA na" ; "qu o OS A : A E "PFP 
"u Po E a 

463 PRINT “**"PULSE UNA TECLA PA 
RÁ SEGUIR Y LA F PARA PARAR" 

470 INPUT UW$: IF U$="F" THEN 5 
TOP 

480 CLS : 60 TO 20 


Lo mejor es hacer nuevamente una demostración para compren- 
der lo que sucede. Así que apliquemos la siguiente secuencia: 


RUEDAS S ALAS N 
MOTOR N NEUMATICOS — S 
RAILES N VENTANILLAS N 
CADENA S DIRECCION S 


El programa llegará a la conclusión errónea de que se trataba de 
un caballo por lo que hay que decirle que está equivocado cuando 
nos pida la respuesta correcta (bicicleta = 1): 


¿FRA EL CABALLO? N 

| BICICLETA 2 AUTOMOVIL 
3) TREN 4 AVION 

5 CABALLO 

¿CUAL ERA? 1 
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La situación de las diversas matrices de decisión y de control se 
presentan a continuación: 


D(N) DE CR 
0 0 1 
0 0 1 
0 0 1 
0 0 1 
0 0 1 
1 0 0 1 0 0 1 1 bicicleta 
—1 0 0 —1 0 0 —1 —1 automóvil 
—1 0 0 —] 0 0 —1 —1 tren 
—1 0 0 —] 0 0 —1 —1 avión 
—1 0 0 —] 0 0 —1 —1 caballo 
A B e D E F G H 
(A = ruedas —B = alas C = motor D = neumáticos 
E = raíles F = ventanillas (G = cadena  —Hi= dirección) 


Si se mira atentamente se observará que las características que han 
causado alteraciones en las matrices de control son ruedas, neumá- 
ticos, cadena y dirección, que son los mismos que definimos como 
partes de una bicicleta pero que no se encuentran en un caballo. 
Además, se verá que los valores de estas características para la bi- 
cicleta son ahora más uno, mientras que los de los otros objetos 
toman el valor de menos uno. 

Ahora damos las características de un coche, con las que el orde- 
nador cree que es una bicicleta y los corrige. Obsérvese que la ma- 
triz de control para bicicleta y automóvil es enmendada ahora al con- 
siderar la nueva información. 


RUEDAS S ALAS N 
MOTOR S NEUMATICOS —' $ 
RAILES N VENTANILLAS SS 
CADENA N DIRECCION S 


¿ERA BICICLETA? N 
1 BICICLETA 2 AUTOMOVIL 
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3 TREN 4 AVION 


5 CABALLO 
¿CUAL ERA? 2 
DN) DE CR 
3 3 2 
—3 3 2 
—3 3 Z 
—3 3 Z 
—3 3 2 
0 0 —1 0 0 —1 1 O bicicleta 
0 0 1 0 0 l —1 O automóvil 
—] 0 oO —1 0 0 —1 —1 tren 
—] 0 0 —1 0 0 —1 —1 avión 
—]1 0 0 —1 0 0 —i —1 caballo 
A B C D E F G H 


A continuación se dan las de un avión y decide que es un auto- 
móvil, con nueva corrección. 


RUEDAS S ALAS S 
MOTOR S NEUMATICOS —S 
RAILES N VENTANILLAS S 
CADENA N DIRECCION "S 
¿ERA AUTOMOVIL? N 

l BICICLETA 2 AUTOMOVIL 

3 TREN 4 AVION 

5 CABALLO 

¿CUAL ERA? 4 


Y ahora las características del tren, y nueva respuesta errónea. 


RUEDAS S ALAS N 
MOTOR S NEUMATICOS —'N 
RAILES S VENTANILLAS 5 
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CADENA N DIRECCION N 


¿ERA UN AVION? N 

| BICICLETA 2 AUTOMOVIL 
3 TREN 4 AVION 

5 CABALLO 

¿CUAL ERA? 3 


Y finalmente las del caballo, respondiendo que avión. 


RUEDAS N ALAS N 
MOTOR N NEUMATICOS —5'N 
RAILES N VENTANILLAS N 
CADENA N DIRECCION S 
¿ERA UN AVION? N 

1 BICICLETA 2 AUTOMOVIL 

3 TREN 4 AVION 

5 CABALLO 

¿CUAL ERA? 5 


La incorporación automática de la información para un sistema 


experto 


Si continuamos aplicando información a nuestro experto conse- 
guiremos que finalmente nos responda correctamente cada vez. El 
tiempo que precise dependerá de la extensión de las diferencias entre 
las características de los objetos y en el orden con que se presentan 
al experto. Téngase en cuenta que puede pasar mucho tiempo 
hasta lograr que sea infalible. He aquí una secuencia que finalmente 


se logró correctamente cada vez: 


avión (tren) automóvil (avión) bicicleta (Sl) 
automóvil (SID) avión (automóvil) avión (SI) 

caballo (SD) avión (bicicleta) automóvil (avión) 
avión (automóvil) avión (automóvil) automóvil (avión) 
automóvil (SI) avión (automóvil) avión (SI) 
automóvil (SI) avión (SI) caballo (SI) 
bicicleta (SI) tren (automóvil) tren (SI) 
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bicicleta (SI) automóvil (avión) automóvil (SI) 


avión (automóvil) avión (SI) automóvil (avión) 
automóvil (SD) avión (SI) automóvil (SI) 
bicicleta (automóvil) automóvil (SI) avión (SI) 

tren (SD caballo (SI) bicicleta (SI) 


Para ver el estado final de la matriz de control cuando se ha lle- 
gado a él, se puede detener el programa y ordenarle «GO TO 350» 
como orden directa. Como la escala final de valores varía entre 
+6 y —2 no deberá sorprender el largo tiempo que se requiere 
para llegar allí. 


1 0 —1 1 o —2 3 O (bicicleta) 
—1 4 1 0 —1 l —2 O (automóvil) 
0 —1 Il —2 2 l —1 —2 (tren) 
—2 6 0 —1 -—1 0 —2 —2 (avión) 
—1 0 0 —1 0 0 — O (cáballo) 
A B C D E F G H 
(A = ruedas —B = alas C = motor D = neumáticos 
E = raíles F = ventanillas (G = cadena  —Hi= dirección) 


Por supuesto que en una aplicación real de este sistema experto 
sería posible incorporar automáticamente una masa de información 
sobre el tema en cuestión, así como las conclusiones, dejando sólo 
al ordenador para que asimilase dicha información y lograse las reglas 
oportunas en tiempo adecuado. Como tales reglas se almacenan en 
matrices se podría preparar fácilmente una rutina para conservarlas y 
poder usarlas posteriormente. 

(Nota del Adaptador: Se han incorporado al listado las líneas 465 
y 470 con objeto de poder salir del programa cuando nos cansemos.) 
A continuación se presenta el listado completo del programa: 


S RESTUORE SS: FOR N=1 TO 1 FE 
ab A: POKE USR "1"+HN,A: NEXT OH: 
DATA 2,0,2,14,15,17,19 

10 GO SUB S000 

20 LET DE=Ú 
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110 


FOR N=1 TO OB 
LET DN>=0 

NEXT N 

FOR N=1 TO FE 

LET F(N=0 

PRINT FS 3" "; 

INPUT "18/N?" 51% 

PRINT I$, 

IF Ig="s" OR I$="s" THEN L 


ET F(N)=1 


120 
130 
140 
150 
i ¿40 
170 
130 
NO: 
1>0 
200 
zZ10 
220 
O TO 
230 
2390 
230 
24 
270 
HEN 
223 
280 


CR": 


20 


NEXT N 

FOR N=1 TO FE 

FOR M=1 TO UB 

LET D(M2=Di¿M>3+FLND) ARAN, M) 
NEXT Mi: NEXT N 

FOR N=1 TO OB 


IF DIN>>=DE THEN  LET DE=D“í 


LET TS=N 


NEXT N 
PRINT "IERA "¡0$(TS)3"?"; 
INPUT "1I8/N?"31%: PRINT 153 
IF I$="S" OR lI$="s" THEN 6 
20 

FOR N=1 TO 0B 

PRINT Nz" "¿O$0N), 

MEXT N: PRINT 

PRINT "ICUAL ERA?  "; 
INPUT CR: 1F CR<1 OR CR>S T 
GO TO 270 

PRINT CR 

PRINT TAB (8);"D(N> DE 
FOR N=1 TO OB 


PRINT TAB (¿?I:¡DINI3;TAB (16) 


DE¡TAB (223;CR 


S00 IF DIN>>=DE ÁND N<2CR THEN 
FOR M=i TO FE: LET RIM,N2=RCM,N 
IJZFCMI 1 NEXT M 

210 NEXT ON 

2320 FOR M=1 TO FE 


330 


LET R<M,CRI=REM, CRE CM) 


125 


126 


340 NEXT M: PRINT 
350 FOR M=1 TO 0B 
30 FOR N=1 TO FE 
370 PRINT TAB (Nx3)-3;R0N,M); 
380 NEXT MN 
3790 PRINT TAB (24>:¡08(M) 
400 NEXT M 
410 RESTORE 460 
420 FOR N=1 TO FE 
430 READ G$(N) 
440 PRINT TAB (Nx3)-2;08(N) ; 
450 NEXT N 
450 DATA a ud = DRA A e O 
1 ó Mm G" a qu 
4£5 PRINT ““"PULSE UNA TECLA PA 
RÁ SEGUIR Y LA F PARA PARAR" 
470 INPUT Wé: IF Ué="F" THEN S 
TOP 
480 CLS : GO TO 20 
8000 LET FE=8: LET 0B=5 
3010 DIM F$*(FE,11>: DIM FC<FE>: D 
IM _RCFE,OB>: DIM 0%(0B,8: DIM D 
(0B>: DIM 0$(8,1) 
8015 RESTORE 2000 
3020 FOR N=1 TO FE 
8030 READ F$(N)> 
8040 NEXT N 
8050 FOR N=1 TO OB 
3040 READ O$S(N) 
8070 NEXT N 
9000 DATA "RUEDAS", "ALAS", "MOTOR 
" "NEUMATICOS", "RAILES","VENTANI 
LLAS", "CADENA", "DIRECCION" 
2010 DATA "BICICL.","AUTOMON,."," 
TREN", "AVION", "CABALLO" 
9999 RETURN 
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La recuperación de la información 
de ficheros 


Los ordenadores son totalmente lógicos pero nuestros propios 
bancos de memoria no lo son tanto, dando lugar a ciertos problemas 
cuando se trata de recuperar información sobre un cierto tema. Por 
ejemplo, el idioma inglés es una lengua muy variable y con frecuencia 
presenta nombres iguales (o muy similares) escritos de forma dife- 
rente, con las dificultades consiguientes. Una solución a este proble- 
ma es tratar de identificar el sonido de la palabra, en lugar de las 
letras con que se escribe, mediante el «Soundex Coding» (Código 
Sonoro) que se desarrolló en Estados Unidos para ayudar a realizar 
el Censo de 1890. Este método de codificación asegura que palabras 
de sonido similar tienen casi el mismo código secuencial. 

Las reglas para codificar una palabra son las siguientes: 


1) Siempre se conserva la primera letra de la palabra como el primer 
carácter del código. 


Desde la siguiente letra en adelante: 


2) Se ignoran las vocales (a, e, 1, O, u). 

3) Se ignoran las letras w, y, q y h. 

4) Se ignoran igualmente los signos de puntuación. 

5) Se codifican las otras letras con valores del 1 al 6 en la forma 
siguiente: 


NOTA DEL TRADUCTOR/ADAPTADOR: Este Capítulo se incluye como ejemplo del desarrollo de las técnicas cuyos 
principios se exponen en esta obra. Como puede comprobar el lector, se trata de un ejercicio práctico que necesaria- 
mente se ha de desarrollar utilizando las palabras inglesas para la identificación de los sonidos de acuerdo con el método 
de codificación «Soundex Coding». Lo importante aquí es deducir las aplicaciones que pueden derivarse de los principios 


expuestos. 
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letras Código 


bfpv 1 
cgjksxz 2 
dt 3 
| 4 
mn 5 
r 6 


6) Cuando letras contiguas tienen el mismo código sólo se retiene 
la primera. 

7) Si el código tiene más de cuatro caracteres sólo se tomarán los 
cuatro primeros. 

8) Si el código tiene menos de cuatro caracteres se completará has- 
ta este número con ceros. 


Para aclarar lo que antecede se presentan a continuación algunos 
ejemplos de nombres codificados por el sistema «Soundex». 


BRAIN — B630 


(La B se conserva, R es 6, A e I se ignoran, N es 5 y se añade un 
cero para completar el código.) 


CUNNINGHAM — C552 


(C se conserva; U se ignora; las dos N se representan por un solo 
código, el 5; I se ignora; la tercera N es 5; G es 2; H y A se ignoran; 
y M es 5. Pero el código resultante (C5525) se corta para dejarlo con 
cuatro caracteres.) 


GORE — C5600 


(La G se conserva, la O se ignora, R es 6, E se ignora y se añaden 
ceros para completar el código.) 


IRELAND — 1645 
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(La I se conserva, la R es 6, la E se ignora, L es 4, A se ignora, 
Nes 5 y D es 3. El código resultante (16453) se corta hasta dejarlo 
con cuatro caracteres.) 


SCOT-— S300 


(La S se conserva, la C se ignora porque está en el mismo grupo 
que la S, la O se ignora, T es 3 y se añaden ceros hasta cuatro 
caracteres.) 


Si la palabra está llena de vocales y de otras letras que se desechan 
nos encontraremos con un código verdaderamente breve. 


HEYHOE — HO000 


(La H se retiene, las demás letras se rechazan y se completa el código 
con ceros.) 


Rutina de Codificación 


Para informatizar el código elaboremos un programa que nos per- 
mita entrar una palabra y obtener su código «Soundex» (véase el Dia- 
grama de flujo 7.1). Lo primero a realizar es establecer algunas 
instrucciones DATA que contengan las letras retenidas en sus corres- 
pondientes grupos. (Obsérvese que tales grupos se ordenan de acuer- 
do con el valor del código.) 


5000 DATA "BFPU", "CGIJKSX2","DT", 
eos : "MN" a de 


Ahora podemos entrar la palabra a codificar —I$— y, para 
empezar, hacer que C$ sea su primera letra (regla 1). 


100 RESTORE : INFUT 1% 
110 LET Cé=lério 
129 


130 


LLEVAR PRIMERA 
LETRA A C$ 


INTRODUCIR 
NOMBRE 


LLEVAR 
SIGUIENTE 
LETRA A T$ 


CADENA DE 
BUSQUEDA = 
GRUPO DE CODIGO 


¿TODOS 
COMPARADOS? 


¿COINCIDENCIA? 


T$ = 
NUM. DE CODIGO 


PONER T$ COMO 
ESPACIO VACIO 


AÑADIR TS A CS 


¿TODOS 
COMPARADOS? 


IMPRIMIR NOMBRE 
Y CODIGO 


Diagrama de flujo 7.1. Creación del Código «Soundex» 


Ahora necesitamos comprobar las otras letras de la palabra, 2 TO 
LEN (15), una por una, después de hacer una cadena temporal T$ 
para poner la letra a analizar. 


120 FOR N=2 TO LEN (1%: FESTOR 
E 
130 LET T+*=I*LHN) 


Como la conversión de los números de código se precisará en 
varios puntos del problema final, estableceremos este proceso como 
una subrutina en la línea 1000. 


130 GO SUBE 1000 


Tenemos que comparar T$ con cada letra de los grupos. Para la 
comprobación de cada grupo hemos de repetir el ciclo seis veces, 
haciendo una cadena de análisis S$ para el código «Soundex» de cada 
uno de tales grupos, y usar una rutina INSTR (véase Cap. 2) que 
compare cada una de las letras del grupo con la que se investiga 
en TS. 


1000 FOR F=i TO ¿€ 
¡010 READ =+ 
1024 60 SsU8 Sada 


La rutina INSTR es similar a la utilizada en los capítulos anteriores. 


s000 FOR M=1 TO LEN ¿334 

s010 1F SériMi=T*% THEN  —LET SP=H: 
RETURI 

Ssazoa NEXT H 

5030 LET =P=0 

s030 RETURE 


Cuando se efectúa la comparación INSTR, se ha de determinar 
si ha habido identidad o coincidencia con alguno de los grupos 
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«Soundex» y en este caso, con cuál. En caso negativo, SP se pone a 
cero y si hay identificación adopta el valor de M que corresponde 
«al del grupo del código adaptado. 

Cuando hay identidad o coincidencia (SP>0), convertimos el valor 
del bucle que explora los grupos P del código en una cadena T$ que 
substituye la que teníamos con carácter temporal. 


1030 IF SF: THEN  LET: TE=STR%$ (€ 
Pis RETURN 


Si no hay identidad o coincidencia en ese grupo hay que comprobar el 
siguiente. 


1040 NEXT P 


Y si después de todo el análisis, sigue sin haberla, T$ debe conte- 
ner uno de los caracteres que hay que ignorar. Así, pues, hacemos T$ 
una cadena vacía (T$=“* *) y regresamos al programa (RETURN). 


1080 LET T3="" 
1060 RETURN 


Ahora podemos hacer la cadena codificada C$ igual a la original 
codificada, más el carácter recientemente convertido T$. 


170 LET C*=C$+T+ 
120 NEXT ON 


Al llegar a este punto hemos de volver atrás para tratar el si- 
puiente carácter en I$. 

Cuando se alcanza el fin de I$, se presenta (PRINT) la entrada 
(1$) y la totalidad de la cadena codificada C$ antes de volver a la 
linca 100 para una nueva palabra. 


210 PRINT : FRINT "NOMBRE","COD 
160": PRINT 1%,0% 

320 G0 70 100 
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Si se aplica el nombre STEVEN se producirá el código S315 que 
es correcto. Si, por otra parte, se prueba con BRAIN y CUNNING- 
HAM se tendrán B65 y C5S5525 respectivamente. El de BRAIN es de- 
masiado corto y necesita ampliarse con ceros y el de CUNNINGHAM 
es muy largo. Se repiten los mismos códigos uno tras otro para la 
letra N. 


Resolución de casos especiales: Códigos demasiado cortos 
o cadenas largas 


Para solucionar el problema de la repetición del mismo código 
para letras contiguas se necesita un registro de la última cadena 
temporal: L$. Tenemos que hacer que L$ sea el código del primer 
carácter de I$ para empezar, de forma que la letra inicial no se re- 
pita. Según se va realizando el bucle FOR-NEXT necesitamos compa- 
rar L$ con T$, y si son iguales, no se añadirá T$ a C$. En otro caso, 
es preciso hacer que L$ sea el último valor de T$. 


110 LET Té=léc1o: LET Cé=T*: GU 
SUB 1000: LET Lé=T+* 

150 IF Té=L%* THEN 64 TO 130 

1£0 LET L%=13%8 


Ahora podemos resolver el problema de código demasiado corto. 
En primer lugar, se comprueba la longitud de la cadena, LEN 
(C$S<4. Si es este el caso, se añaden tres ceros y después se corta la 
cadena en su tamaño correcto (cuatro caracteres). 


170 1F LEN 1C3::<9 THEN  LET Cé= 
Cs+ "000": LET Cé=Cé*L TO q: 


Finalmente si la cadena es demasiado larga, se corta nuevamente 
para dejarla en su longitud correcta. 


00 IF LEN ¿[+29 THEN  LET Cé= 
CÉ* TO 4) 
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Diagrama de flujo 7.2. La creación de detalles 


Aplicaciones de codificación 


Ahora que tenemos un método útil para producir el Código 
«Soundex» démosle algo con que trabajar. La primera tarea es prepa- 
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rar una lista de nombres en declaraciones DATA y haremos que 
se lean y apliquen a una matriz en cadena, N$(N). Nuestra lista de 
demostración se compone de dieciocho nombres. Si se desean más, 
bastará una rápida ojeada al listín telefónico local para resolver el 
problema. Adviértase que el número de palabras se almacena tam- 
bién en la variable NW. 


10 64 SUB 2000 
000 CET Mii=1= 
2010 DIM Né$zMbl, 7 
010 CATA "ABRAHAM", "ABRAHÁAME" ," 
ABRAMS”", "ADAM", "ADAÁRS", "ADDÁMS", 
"abamnson", "ALAN", "ALLAN", "ALLEN" 
3020 DATA "ANTHARNY", "ANTHONY", "A 
MTORNY", *“ANTROBUS", "APPERLET","AF 
FPLEBEE”.“APPLERT"A  AFFRLEFPURD" 
030 FESTORE *010: FOR HN=1 TO Hu 
2090. READ HEINO 
050 NEXT ON 


La idea que se persigue con la codificación «Soundex» descansa 
en el hecho de que se use la adaptación antes de presentar las pala- 
bras posibles. Tenemos, por consiguiente, que encontrar los códigos 
de cada nombre de las declaraciones DATA y poner estos códigos 
en una matriz en cadena equivalente, OS(N). La rutina para hallar 
el Código «Soundex» es virtualmente idéntica a la usada para encon- 
trar el código de una palabra entrada con una instrucción INPUT, 
como se describió anteriormente. 


2500 DIM O$cHy, 4) 
2510 PRINT : PRINT "NOMBRE","COD 
160": PRINT 
2520 FOR G=1 TO Nu 
7530 PRINT Néc0>, 
2590 LET Té=N$(0)0 TO 131 LET Cs 
=T$: RESTORE : GO SUE 1000: LET 
Lé=T3 
5550 FOR N=2 TO LEN (Mec GQ) 
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LET Té$=N*$CUI IN? 
RESTORE : GU SUE 1000 
IF Té=Lé THEN NEXT N: Ga T 
Le úl 

LET L+=T+ 

LET CE=CE+T+$ 
1 NEXT A 
Z IF LEN (C$:<d THEN  LET ECxié= 
+"O00"<s LET Cé=C*$£ Ta 9) 
30 1F LEN ¿(C$>>4 THEN  LET (Cé= 
£ TO 91 
44 PRIMT CS* 
5 


cn cn 
e CA EA 


cn 


QA a 4 Yu 
L 
' fñ ] 


VR Er Cr Dr He Uh HE Cr dp Ch 


., Q . 5 A 4 
am E 


Ú 
a 


a = 


o LET (01 Di=C+$ 
50 MEXT UL 
24 RETLEN 


US O A 


EN 


Si se ejecuta (RUN) esto ahora se verán todos los códigos de las 
palabras introducidas en las declaraciones DATA antes de que se 
pida la entrada de una palabra. 


NOMBRE 


ABRAHAM 
ABRAHAMS 
ABRAMS 
ADAM 
ADAMS 
ADDAMS 
ADAMSON 
ALAN 
ALLAN 
ALLEN 
ANTHANY 
ANTHONY 
ANTONY 
ANTROBUS 
APPERLEY 
APPLEBEE 
136 


CODIGO 


A165 
A165 
A165 
A350 
A352 
A352 
A352 
A450 
A450 
A450 
A5S35 
A5S35 
A5S35 
A536 
A164 
A141 


APPLEBY A141 
APPLEFORD A141 


Lo único que necesitamos en este momento es encontrar qué có- 
digos de estos nombres igualan al de la entrada y después presentar 
estos nombres por medio de un bucle FOR-NEXT. 


290 PRINT 

250 FOR N=1i TO mu 

2¿£0 1F CÉ=03N>2 THEN  PREINT Ne: 
No, OB 

270 HEXT NW 


Con esto sólo se presentarán palabras con idénticos Códigos 
«Soundex». Por ejemplo, si se prueba a entrar el nombre APPLEBE 
se tendrá la siguiente respuesta: 


?APPLEBE 

NOMBRE CODIGO 
APPLEBE A141 
APPLEBEE A141 
APPLEBY A141 
APPLEFORD A141 


Aunque APPLEBE (con una E al final) no se halla en los datos 
(DATA), se han encontrado APPLEBEE y APPLEBY así como 
APPLEFORD (donde se ha cortado el final de la palabra). 


Adaptaciones parciales de la codificación 


Observese que, sin embargo, se ha rechazado APPERLEY aun- 
que tiene una pronunciación muy similar (en inglés, N. del T.). 
Sería útil, por consiguiente, que se pudieran hacer adaptaciones 
parciales. 
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Esto se puede conseguir fácilmente añadiendo otro bucle FOR- 
NEXT que compare una sección decreciente de la entrada con lon- 
gitudes igualmente decrecientes de los códigos almacenados (véase el 
Diagrama de flujo 7.3). 


20%FOR M=9T0 1STEP -1 

30 PRINTO: PRIMNT Mi" ADAPTACIO 
DE CARACTERES": PRINT 

260 1F Céc TO MO=0%:N5<€ TOM T 
HEM PRINT NS), OCN 

220 PRINT O: PRINT "PULSE UNA TE 
CLA PARÁ SEGUIR" 


20 PAUSE ( 
300 PEIMNT : PREIWT 
2310 MEXT 1 


Si ahora se prueba APPLEBE podrán verse todas las posibilida- 
des que brinda el programa. 


?APPLEBE 

NOMBRE CODIGO 
APPLEBE A141 
ADAPTACION CON 4 CARACTERES 
APPLEBEE A141 

APPLEBY A141 
APPLEFORD A141 


PULSE UNA TECLA PARA SEGUIR 


ADAPTACION CON 3 CARACTERES 


APPLEBEE A141 
APPLEBY A141 
APPLEFORD A141 


PULSE UNA TECLA PARA SEGUIR 


ADAPTACION CON 2 CARACTERES 
ABRAHAM A165 
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IMPRIMIR NUM. 
CARACTER 
COMPARADO 


¿SE CORRES - 
PONDEN LOS PRIMEROS 
M CARACTERES? 


IMPRIMIR 
COINCIDENCIA 


PULSAR TECLA 
PARA CONTINUAR 


Si 


Diagrama de flujo 7.3. Adaptación parcial 
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ABRAHAMS A165 
ABRAMS A165 
APPERLEY A164 
APPLEBEE A141 
APPLEBY A141 
APPLEFORD A141 


PULSE UNA TECLA PARA SEGUIR 


ADAPTACION CON 1 CARACTER 


ABRAHAM A165 
ABRAHAMS A165 
ABRAMS A165 
ADAM A350 
ADAMS A352 
ADDAMS A352 
ADAMSON A352 
ALAN A450 
ALLAN A450 
ALLEN A450 
ANTHANY AS35 
ANTHONY AS35 
ANTONY AS35 
ANTROBUS AS36 
APPERLEY A164 
APPLEBEE A141 
APPLEBY A141 
APPLEFORD A141 


PULSE UNA TECLA PARA SEGUIR 
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I'l reconocimiento de las 
formas gráficas 


Normalmente reconocemos los objetos mediante los sentidos de 
la vista, el oído, el gusto y el tacto, mientras que nuestro ordena- 
dor sólo puede lograr información a través del teclado. Si bien es 
posible producir sensores que se apliquen a la máquina para propor- 
cionar otro punto de vista del mundo exterior, su construcción re- 
«quiere una cierta complicación electrónica y mecánica. Vamos a 
simular la acción de un sensor óptico para ilustrar cómo pueden re- 
conocerse las formas gráficas. 


Consideremos para empezar tres formas simples: una línea verti- 
cal, un cuadrado y un triángulo rectángulo. 

Pueden reconocerse estas formas observando el modelo que or- 
yanizan sobre una cuadrícula imaginaria y comprobando si existe, 
o no, un punto de la figura en cada uno de los de la cuadrícula 
definidos por sus coordenadas X e Y. 


En el caso de la línea sólo se utiliza la primera abscisa y todos 
los valores de las ordenadas. El cuadrado es un poco más compli- 
cado ya que todas las coordenadas X de las filas 1 y: 8 de las Y 
están activadas y entre las filas 2 a 7 de las Y sólo están activa- 
dos el primero y el último puntos de las X. Finalmente, el triángulo 
es aún más complicado, ya que la inclinación de la hipotenusa se 
produce incrementando el valor de X en cada salto (Fig. 8.0). 
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Figura 8.0. Transformación de gráficos en valores numéricos 


Una forma sencilla de describir estas figuras sería la de repre- 
sentar cada punto por un dígito binario y producir el valor decimal 
del binario resultante del análisis de la serie de dígitos de la fila, de 
manera análoga a como se hizo en el caso de los sistemas expertos 
(véase la Tabla 8.1). En realidad, este tipo de estudio se emplea 
para producir los caracteres que se ven en la presentación de pan- 
talla cuyos formatos se almacenan en la memoria justamente de esta 
forma. Por ejemplo, la figura 8.1 muestra cómo se compone la le- 
tra «A». 

Existen ahora máquinas (Lectores Opticos de Caracteres) que 
pueden invertir este proceso. Realmente «leen» una página impresa 
explorando el papel según un modelo en forma de cuadrícula y 
determinando si la luz se refleja, o no, en cada punto definido por 
coordenadas. 


Tabla 8.1. Valores decimales de las formas descritas en dígitos binarios. 


Fila Línea Cuadrado Triángulo 
1 1 255 1 
Z 1 129 3 
3 1 129 5 
4 1 129 9 
5 1 129 17 
6 1 129 33 
7 1 129 65 
8 1 255 255 
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Figura 8.1. Formación de la letra «A» 


Lo que verdaderamente se toma es un conjunto de «sies» O 
«noes» para cada coordenada y luego se decodifica y compara con los 
modelos de las formas conocidas. La forma más sencilla de hacer esta 
comparación sería la de considerar cada punto como un dígito binario 
y convertir la fila de ellos en el valor decimal correspondiente que se 
compara con una tabla de valores conocidos. Esto tiene, sin embargo, 
la desventaja de que debe analizarse cada punto en un conjunto de 
64 (los que componen una cuadrícula de ocho por ocho). 


Método abreviado de análisis de gráficos 


Un enfoque más rápido se basa en el hecho de que cada carácter 
puede detectarse observando solamente un número mucho más limi- 
tado de características críticas del modelo. La figura 8.2 nos da un 
cjemplo de un árbol de decisión que permite encontrar todas las letras 

143 


mayúsculas del alfabeto utilizando solamente 12 puntos (véase la 
l'g. 8.3) y sin que ni siquiera sea necesario analizarlos todos en cada 
caso. Si se siguen cada una de las rutas se verá que el número máximo 
de pasos a seguir es siete y que la mayoría de las letras se encuentran 
en menos de cinco (Tabla 8.2). No cabe duda que esto es mucho más 
rápido que comparar 64 puntos. 


Tabla 8.2. Número de pasos requeridos para el reconocimiento de cada carácter 


3 pasos: I,D 
J 


4 pasos: L,J,C,G,O, W 

5 pasos: S,A,0Q,R, T, F, U, espacio 
6 pasos: P,V, Y, H 

7 pasos: B,M,N,E,K,X,Z 


Para demostrar cómo funciona este método simularemos la ac- 
ción de una cabeza exploradora sobre una cuadrícula en la pantalla 
en la que puedan representarse caracteres. 

Se borra la pantalla y se establece una zona negra (PAPER 0) 
de 6 x 8 bloques en la parte superior izquierda de la pantalla. A 
dicha zona se superpone otra amarilla (PAPER 6) de 5 x 7 para 
marcar la de trabajo (debe dejarse naturalmente un margen alrededor 
para que los caracteres no se mezclen). 


1 2 3 4 5 6 
a d NO O NO 52 NO O NO Ga NO e 
SI Si S| Si 
NO si 
11 14 15 16 
es ST S] EY 
12. 13 18 17 


Figura 8.24. Arbol de decisión para el alfabeto 
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7 Sl 7 


19 


Si 
Si 


44 
43 
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Fig. 8.3. Puntos utilizados en el árbol de decisión 


10 
2000 
2010 
020 
00 
2040 
7050 
060 
070 
7080 
7096 
7200 


GO SUB 2000 

CLS 

FOR X=1 TO ? 

FOR Y=1 TO ? 

PRINT AT Y,X; PAPER 03" "; 
NEXT Y: NEXT X 
FOR Xx=2 TO á 
FOR Y=2 TO 8 
PRINT AT Y,X3; 
NEXT Y: NEXT X 
LET X=2: LET Y=2 
RETURN 


PAPER 65" "; 


Ahora se produce un cursor intermitente para mostrar la posición 
en la que nos hallamos. Se encuentra el carácter que hay en tal posi- 
ción, SCREEN$(Y,X), y se almacena en la variable alfanumérica 
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C$. En esta posición se pone un signo de número (4) y a continua- 
ción se repone el carácter original C$ para que no exista un efecto 
duradero. 


20 LET As=INKEYS 
30 LET C$=SCREENS (Y,X): PRINT 
AT Y,X3"H": PAUSE 10: PRINT AT 
Y, Xj0$ 
40 IF Aé="" THEN GO TO 20 


Las coordenadas X e Y se actualizan de acuerdo con el movimiento 
de las teclas del cursor (w, q, 1, p) y cuando se pulsa la barra espa- 
ciadora se pone un asterisco en tal posición. Si se comete un error, 
pulsando la «x» se borra la posición actual, imprimiéndose un espacio 
vacio, y con la «Z» mayúscula (tz? + CAPS/SHIFT) se salta a la 
rutina de presentación de la cuadrícula y se borra la existente. Pul- 
sando ENTER (CHR$(13)) se va a la rutina decodificadora, y en otro 
caso el programa retorna a la comprobación de teclado. 


30 1F ÁAét="w" THEN  —LET x=xX+1 
¿0 IF A="q" THEN  LET x=x-1 
“0 1F As="1* THEN  —LET '1=Y+1 
s0 1F Aé="p" THEN  LET Y=Y-]1 


0 IF Aé=" " THEN PRINT AT Y, 
pa oz : 

100 IF Aé="x" THEN PRINT AT Y, 
Ke lon 


110 IF As="2" THEN GO SUB ?010 
120 IF AR=CHRS$ (13 THEN 60 TO 


170 60 TO 20 


Hay que establecer límites para impedir que el cursor se salga de 
la zona de la cuadrícula de 5 x 7. 


130 I1F.x<x2 THEN  LET x=2 
190 IF xX:4 THEN  —LET X=8S 
150 IF Y<2 THEN LET Y= 
150 IF Y:2 THEN  LET Y= 
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Fl mantenimiento del árbol de decisión 


ll árbol de decisión se mantiene en una serie de matrices enla- 
zadas en las que NB es el número de ramas. Los nombres de las letras 
se ticnen en la variable L$(N). J(N) contiene la abscisa X que se ha 
de analizar a continuación y K(N) la correspondiente ordenada. El 
siguiente elemento a considerar, si la respuesta es «no», se guarda en 
I.(N), y en M(N) el correspondiente para el caso de respuesta afir- 


maliva. 


100 
7110 


JNE) : 


LET NE=33 


RESTORE 
DIM K(NB>: 


HH MINB) 
FOR N=1 TO NB 
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DIM L+NEBE,1)>: 
DIM LINB;: 


2130 READ LN), JIND KONO, LND, M 
UN) 
2140 NEXT NH 


lla mejor forma de aplicar los datos, con la instrucción DATA, 
es por medio de 53 líneas separadas (una para cada punto de la rama) 
ya que esto facilita la entrada y pone en evidencia los errores. Des- 
yraciadamente el BASIC Sinclair requiere que hayan de entrarse las 
cadenas vacías O ceros donde no se desea entrar ningún valor. 


148 


2300 DATÁ "",1,1,2,179 
5310 DATA "",1,5,3,10 
7320 DATA "",2,2,4,9 
9330 DATA "",5,1,5,8 
7340 DATA "",3,1,6,7? 
7350 DATA " ",0,0,0,0 
7350 DATÁ "5",0,0,0,0 
$270 DATA "J",0,0,0,0 
2380 DATÁ "1",0,0,0,0 
3720 DATA "",5,9,11,*% 
2400 DATA "",5,5,12,13 
9410 DATA "C",0,0,0,0 
7420 DATA "G",0,0,0,0 


950 
73930 
7450 
7950 
9470 
936 
9% 
220 
7510 
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390 
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Si se tiene confianza en uno mismo (o se trata de ahorrar espacio) 
pueden condensarse los datos en un número más pequeño de líneas 
de difícil lectura pero es muy fácil que se cometan errores. 


I.a comprobación del gráfico realizado 


Para comprobar el dibujo producido comparándolo con los mo- 
delos disponibles (véase el Diagrama de flujo 8.1) se pone en 1 el 
puntero AP con objeto de que el análisis se empiece desde el prin- 
cipio. Se leen las coordenadas X e Y de los elementos de J(AP) y 
k(AP) señalados por el puntero, y la última posición LP se hace igual 
al valor del puntero AP de la matriz presente. 

Se determina ahora el carácter en esas coordenadas mediante 
SCREENf(X, Y). Si se trata de un asterisco, es que el punto se ha 
marcado y debe seguir el puntero afirmativo (de «sies»), M(AP). 
Si se encuentra cualquier otro valor, sigue el puntero de los «noes», 
I.(AP). En cualquier caso se hace una comprobación para ver si el ele- 
mento señalado contiene un cero (que indica el final de una rama), lo 
que expresa que se ha encontrado el carácter que se buscaba. En este 
caso, se presenta en pantalla la letra o carácter en cuestión —L$(LP)— 
y se mantiene la presentación hasta que se pulse una tecla, con lo que 
se Inicia un nuevo ciclo. Si aparece un valor superior a cero debe 
tratarse de otro punto de la rama por lo que el programa salta y 
recoge los nuevos valores de J(AP) y K(AP). 

Para que se puedan ver los puntos que se han comprobado se 
pone el signo «Q» a medida que se van encontrando. Cualquier 
punto establecido pero no comprobado permanecerá con un asterisco. 


2000 LET AP=1 

2010 LET X=JC(AP>+1: LET Y=kCAP)+ 
1: LET LP=AP 

20204 LET PS=S5CREENS 1Y,x> 

2030 IF P$="x" THEN LET AP=MCAP 
2: G0 TO 2050 

2040 LET AP=L(APS 

2050 IF AP=0 THEN GO TO 2070 
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RECOGIDA 
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RECOGIDA 
ORDENADA Y 


ALMACENAR 
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USAR 


PUNTERO «NOES » 


Si 


IMPRIMIR LETRA 


Diagrama de flujo 8.1. Reconocimiento de caracteres 
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2060 PRINT AT Y,X;"2"3: GO TO 20 
10 

2070 PRIMT AT 12,4;L$(LP>; 

2080 PAUSE 0 

2090 60 SUB 2000: GO TO 20 


Si se desea saber qué parte del árbol de decisión se ha seguido 
realmente, añádanse estas modificaciones que presentarán la secuen- 
cla seguida. 


2000 LET AP=1; LET A=2; PRINT AT 
1,15¿"AP" 

2050 PRINT AT A,15;AP: LET A=A+1 
: IF AP=0 THEN GO TO 2070 


El inconveniente de este método rápido, que sólo analiza ciertos 
puntos críticos, es que hará una adaptación equivocada si encuentra 
una forma que no se halla en el árbol, mientras que si se comprue- 
ban todos los puntos no ocurrirá tal cosa. 

Los primeros Lectores Opticos de Caracteres sólo aceptaban un 
tipo de letra pero los últimos modelos no sólo admiten tipos de dife- 
rentes estilos, sino que aprenden por sí mismos las reglas para el 
reconocimiento al contar con un sistema experto incorporado. La 
forma de enseñarles es mostrarles algunas páginas de texto y, a 
continuación, se les introducen los mismos caracteres a través del te- 
clado. Creemos, sin embargo, que aún pasará bastante tiempo antes 
de que cualquiera pueda crear una máquina que entienda nuestra letra 
manuscrita. 

Sigue a continuación el listado completo para el reconocimiento 
de formas gráficas: 


10 GO SUB cc 
24 LET A=INKEYS 


30 LET Cé=SCREENS (Y,X>: PRINT 
AT Y,X3"H": PAUSE 10: PRINT AT 
Y, Xx 3C$ 
40 IF £$="" THEN GO TO 20 
SO IF Aét="w" THEN  LET X=X+1 


100 
A 

110 

120 


2000 


1230 
190 
150 
14 
170 
2000 


IF Aé="q" THEN LET X=X-1 
IF Af="1" THEN LET Y=Y+1 
IF Aé="p" THEN  LET Y=Y-1 
IF Aé$=" " THEN PRINT AT Y, 
IF Aé="x" THEN  PRINT AT Y, 
IF At="2" THEN GO SUB ?010 
IF AÍ=CHR$ (13> THEN GO TO 
1F X<2 THEN LET. X=2 

IF X>á THEN  LET X=8 

IF Y<2 THEN “LET Y=2 

IF Y>S THEN LET Y=8 

GQ TO 20 


LET AP=1: LET ÁA=3: 


1,113 "PUNTERO DE" 
2Ú os PRINT AT 2 10 : "MATRICES" 


PRINT AT 


2010 LET X=I(AP2>+1: LET Y=KcAP)+ 

1: LET LP=AP 

2020 LET P$=SCREENS (Y, 

2030 1F Pé$="x" THEN LET AP=MCAP 

3: G0 TO 2050 

2040 LET AP=LCAP) 

2050 PRINT AT A,15;AP: LET A=A+1 
IF AP=0 THEN GO TO 2070 

2060 PRINT AT Y,/x3"29";: GO TO 20 

10 

2070 PRINT AT 12,4;L$cLP>; 

2080 PAUSE 0 

2090 GO SUB 2000: GO TO 20 

egoado cLs 

2010 FOR x=1 TO ? 

2020 FOR Y=1 TO ? 

2020 PRINT AT Y,x3 PAPER 03" "; 

2040 NEXT Y: NEXT x 

7050 FOR X=2 TO 4 

20560 FOR Y=2 TO 8 

2070 PRINT AT Y,x33 PAPER 4," "; 


080 


MEXT Yi HEXT A 


30901 LET x=2: LET Y=2 
2100 LET NB=53 


2110 RESTURE 
JONB>: DIM KINE:: 


DIM L$NB, 12: DIM 
DIM L<(NB>: DI 
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M MNE) 


9120 FOR N=1 TO NB 
2130 READ L30MÓ, JOR, KM LOMO ,M 
0) 

7140 NEXT N 

9200 RETURN 

2300 DATA "",1,1,2,1? 
6310 DATA "",1,5,3,10 
2320 DATA "",3,2,4,? 
9330 DATA "",5,1,5,8 
9240 DOTA "",2,1,8,7 
2350 DATA " ",0,0,0,0 
2360 DATA "5",0,0,0,0 
5370 DATA "J",0,0,0,0 
22380 DATA "1",0,0,0,0 
2380 DATA "",5,9,11,9 
2400 DATA "",5,5,12,13 
2410 DATA "C",0,0,0,0 
9420 DATA "G",0,0,0,0 
5920 DATA "",5,7,18,15 
2490 DATA "",2,9,17,16 
2450 DATA "A",0,0,0,0 
2480 DATA "2",0,0,0,0 
2470 DATA "0",0,0,0,0 
2480 DATA "",5,1,20,2? 


DATÁ 


3 

0 Sd 228 
s 
! 


2500 DATA "",5,3,27,22 
9510 DATA "",5,7,23,26 
9520 DATA "",5,5,24,25 
2530 DATA "P",0,0,0,0 
2540 DATA "B",0,0,0,0 
2550 DATA "R",0,0,0,0 
250 DATA "L",0,0,0,0 
2570 DATA "D",0,0,0,0 
2580 DATA "",5,7,45,30 
2590 DATA "",2,4,31,44 
2600 DATA "",5,3,232,39 


5610 DATA "",1,5,33,36 
220 DATA "",23,1,24,35 
9420 DATA "Xx",0,0,0,0 
9440 DATA "2",0,0,D,0 
250 DATA "",9,2,38,37 
7460 DATA "K",0,0,0,0 
9870 DATA "E",0,0,0,0 
7680 DATA "",2,4,40,43 
9870 DATA "",4,2,42,41 
2700 DATA "M",0,0,0,0 
2710 DATA "N",0,0,0,0 
9720 DATA "H",0,0,0,0 
27230 DATA "W",0,0,0,0 
2740 DATA "",3,1,46,51 
9750 DATA "",1,5,47,50 
9750 DATA "",2,4,48,99 
9770 DATA "Y”",0,0,0,0 
9780 DATA "4",0,0,0,0 
2790 DATA "U",0,0,0,0 
2800 DATA "",1,5,52,53 
$810 DATA "T",0,0,0,0 
2820 DATA "F",0,0,0,0 


Información para la ejecución del Programa de Identificación de 
Formas Gráficas 


Una vez establecida la letra mayúscula que vamos a identificar, 
tenemos que determinar los puntos de la cuadrícula que han de llevar 
un asterisco. Los buscaremos en el Arbol de Decisión desde el lugar 
en el que se encuentra la letra, descendiendo hasta el tronco inicial, 
el 1. Anotaremos el número de los sucesivos entronques con las co- 
rrespondientes coordenadas y si al nudo se llega a través de un SI o 
de un NO. Los correspondientes al SI nos dan las coordenadas de la 
cuadrícula de la pantalla donde se pondrá el asterisco. 


Ejemplo: 


Letra seleccionada: S 
Entronque 7 
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Entronques Ramas NO Ramas SI Coordenadas 


descendentes XxX Y 
7 
SI 3 l 
4 NO 
3 NO 
2 NO 
] NO 


Llevaremos el cursor accionando las letras correspondientes (w — 
un salto a la derecha; q > un salto a la izquierda; p — un salto 
arriba; 1 > un salto abajo) a las coordenadas 3,1 y se marcará allí 
cl asterisco, que para este caso basta con uno. En pantalla nos apa- 
recerán señalados los lugares investigados que son los nudos deter- 
minados. 
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9 
La Inteligencia Artificial 
en la enseñanza 


Otro campo en el que la aplicación de la Inteligencia Artificial 
es especialmente útil es en el de los programas de enseñanza. Resul- 
ta muy interesante disponer de un programa para determinar el nivel 
de conocimientos de un alumno pero la actuación de un profesor 
humano no se limita a esto. El profesor no hace sólo preguntas sino 
que controla los adelantos del alumno, aumenta progresivamente la 
dificultad de las preguntas, a medida que se va avanzando, y somete 
al alumno a pruebas más rigurosas sobre los tipos de problemas en 
los que se encuentra más dificultades. Por ejemplo, si un alumno es 
examinado sobre problemas de adición, sustracción, multiplicación y 
división, pero sólo se equivoca en la última de tales operaciones, 
debe deducirse que necesita hacer divisiones para adquirir más prác- 
tica con las mismas. 


Preguntas y respuestas 


Necesitamos crear números aleatorios para ser utilizados en una 
suma. Con la instrucción INT(RND*10) obtendremos números del 
0 al 9. 


20 LET Á=INT (RND*10) 
30 LET B=INT (RND*10) 
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El ordenador los suma y después va a la subrutina 1000 para la 
comprobación. 


40 LET C=A+B: GO SUE 1000 


La subrutina primero debe presentar la pregunta y recibir median- 
te la instrucción INPUT la respuesta (IP). 


1000 PRINT Aj"+"jBj"="; 
1010 INPUT IP: PRINT IP 


La respuesta debe comprobarse y si C es igual a ella se presen- 
tará la palabra CORRECTO y la rutina regresa a la línea 40. En 
otro caso, se dirá EQUIVOCADO, seguido del valor corregido. 


1020 IF C=IP THEN PRINT "CORREC 
TO": RETURN 

1030 PRINT "EQUIVOCADO, LA RESPU 
ESTÁ CORRECTA ES "¡Cc 

1040 RETURN 


Los temas de sustracción, multiplicación y división se desarrollan 
de manera análoga si se substituye el signo «+» de la línea 1000 por 
el símbolo de cadena —S$— al que se puede aplicar el carácter 
apropiado al caso. Como la instrucción INT(RND*10) es común para 
todos los cálculos, pudiera definirse como una función (RD). 


10 LET x=0 

13 DEF FN RixX23=INT (RND*10> 

ZO LET A=FN RX) 

304 LET B=FN RX) 

40 LET Sé="+": LET C=A+B: GOD $S 
UB 1000 

30 LET A=FN RX) 

$0 LET B=FN RX 

ZO LET Sé="-": LET C=A-B: GO S 
UB 1000 
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80d LET A=FN Rx) 

90 LET B=FN RX) 

100 LET Sé$="xX": LET C=A*B: GO $ 
UB 1000 

110 LET A=FN RX) 

120 LET B=FN RX) 

130 LET S$="/": LET C=A/B: GO 5 
UB 1000 
1000 PRINT AjS$;B;"="; 


Finalmente saltamos a la línea 20 para pedir más problemas. 


190 60 TO 20 


La división por cero 


Tal como está el programa puede interrumpirse si B es un cero 
en el caso de una división por cero. Esto puede arreglarse añadiendo 
simplemente uno a B en este caso. 


120 LET B=FN R(X3+1 


El borrado de decimales 


Estamos utilizando variables enteras para trabajar con esta clase 
de números pero una división puede generar decimales que no pueden 
entrarse correctamente ya que IP se redondeará. 


3/2 = 1,5 


Pero el programa aceptará 1, 1,5, 1,9 ó cualquier otro valor entre 
1 y 1,999... como correctos. 

Para evitar que se obtengan decimales A ha de ser múltiplo de B. 
Para hacerlo, calculamos primero B y hacemos que A sea igual a B 
multiplicado por-un número aleatorio entre 0 y 10. 


159 


110 LET B=FN ReXxX3+1 
120 LET A=SINT (FN RX3>xB 


La utilización de un sistema de puntuación o tanteo 


Ahora que ya tenemos la prueba preparada, hemos de considerar 
la introducción de un sistema de puntuación o tanteo. La forma más 
sencilla es incrementar una variable TR cada vez que se utiliza la 
subrutina de la línea 1000 y hacer lo mismo con una variable de 
tanteo SC cada vez que se logra una respuesta correcta. 


10 LET xX=0: LET TR=0: LET SC=0 
1010 INPUT 1P: LET TR=TR+1 
1020 IF C=IP THEN  PRINT "CORREC 
TO": LET SC=SC+1: GO TO 1040 
1040 PRINT *TU PUNTUACION ES ":S 
Cy"/* 3TR: RETURN 


Si se prefiere el tanteo en forma de porcentaje, se enmienda la 
linca 1040 como sigue: 


1090 PRINT "HAS TENIDO UN "; INT 
(CSC TRI*100>3" POR CIENTO DE Á 
CIERTOS ": RETLIRN 


l.a posibilidad de crear un número infinito de preguntas 
Tal como está, el programa, puede hacer una pregunta de cada 


tipo, en forma secuencial, hasta el infinito. Podemos limitar el nú- 
mauro de preguntas definiéndolo como una variable NQ. 


10 LET X=0: LET TR=0: LET sc=0 
LET Nú=32 
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Cada vez que se hace una pregunta, se decrementa en uno NQ y 
cuando NQ = 0, termina la prueba (después de haberse respondido 
a Ocho preguntas de cada tipo). 


140 IF NQ>0 THEN  G0 Toa 20 

150 STOP 

1010 INPUT IP: LET TR=TR+1: LET 
MNE=N 0-1 


La valoración de las áreas de dificultad 


Si hemos de considerar cada tema en función de áreas de dificul- 
tad hay que llevar un registro de los resultados logrados en cada una 
de ellas. Necesitamos pues variables separadas para cada tipo de ope- 
raciones (AD para la suma, SU para la sustracción, MU para la mul- 
tiplicación y DI para la división). Estas variables se definen en tér- 
minos de un octavo del número total de problemas propuestos: NQ. 


10 LET x=0: LET TR=0:* LET SsCc=0 
: LET NO=22: LET AD=N0-8: LET SU 
=AD: LET MU=AD: LET DI=A4Db 


Ahora si la respuesta correcta C es la misma que la entrada 
—IP—, una variable de incremento IN es puesta a —-1, se presenta 
en pantalla CORRECTO y regresa la rutina. En caso negativo, IN se 
pone en ] y en pantalla aparece EQUIVOCADO seguido del valor 
correcto. 


1020 1F C=IP THEN  LET IMN=-1: FR 
INT "CORRECTO": RETURN 

10:30 LET IN=1: PRINT "ERROR, LÁ 
RESPUESTA CORRECTA ES ";C 

1040 RETURN 


A la variable que corresponda de los temas AD, SU, MU o DI, 
se incrementa IN haciendo que su valor crezca si la respuesta es in- 
correcta o disminuya cuando es correcta. 
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UB 1000: LET AD=AD+ IN 

ZO LET S$="-"¿ LET C=A-B: GO 
UB 1000: LET SU=SU+ IN 

100 LET S$="x": LET C=A*B: GO $ 
UB 1000: LET MU=MU+IN 

130 LET S$="/":2 LET C=A/B: GO S 
UB 1000: LET DI=DI+IN 


490 LET Sé="+":; LET C=A+B: GO S 
S 


Añadimos ahora una comprobación para ver si todas las pregun- 
tas de un determinado tipo no han sido respondidas correctamente 
(us decir, AD>0, véase el Diagrama de Flujo 9.1). Si lo han sido, ya 
no se proponen más de este tipo al saltarse la línea. Si el número 
apropiado de cada clase ha sido correctamente respondido (AD = 0, 
SU = 0, MU = 0, DI = 0) el programa termina. 


90 IF AD>0 THEN  LET S$="+": L 
ET C=A+B: GU SUB 1000: LET AD=AD 


+IN 

ZO IF SU>0 THEN  LET S$="-": L 
ET C=A-B: 64 SUB 1000: LET SU=SU 
+ IN 


100 1F MU>0O THEN  LET Sé="x":; L 
ET C=A4*B: 6d SUB 1000: LET MU=MU 
+ IN 

130 IF DI>0 THEN  LET Sé="-"* L 
ET C=A/B: GO SUB 1000: LET DI=DI 
+ IN 

190 IF AD=0 AND SU=0 AND MU=O A 
ND DI=0 THEN 60 TO 140 


Obsérvese que ya no se hacen preguntas sobre temas en los que se 
haya respondido adecuadamente a cuatro problemas. Si se da un 
error, entonces AD, por ejemplo, se incrementa y, por consiguiente, 
se tendrán que responder más de cuatro antes de que AD se haga 
Cero. 
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RECOGER 
1.2? NUMERO 


RECOGER 
2.” NUMERO 


¿LIMITE 
ALCANZADO? 


HACER CALCULOS 


INCREMENTO 
POR OPERACION 


INTRODUCIR 
RESPUESTA 


IMPRIMIR 


PUNTUACION ¿CORRECTO? 


ACTUALIZAR 
PUNTUACION 


INDIVIDUAL 


ACTUALIZAR 
PUNTUACION 


Diagrama de flujo 9.1. El Profesor Inteligente 


Il establecimiento de niveles de dificultad 


¿Cómo hacer que las preguntas sean más o menos difíciles según 
“e vayan respondiendo? Hasta ahora los valores de A y B han estado 
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comprendidos entre O y 9 ya que se derivaban de la instrucción INT 
(RND*10), pero ahora debemos tender hacia valores más altos si se 
logran respuestas correctas o más bajos, en caso contrario. Al mismo 
tiempo, tenemos que asegurarnos que no se produzcan valores negati- 
vos sí se incide en el error. 

El caso peor sería si se respondieran mal todas las preguntas del 
último grupo. En este caso sólo se plantearían cuatro preguntas de los 
tres primeros grupos, dejando 32 — (3*4) = 20 para el último. 
Además debemos recordar que X (AD, por ejemplo) empieza con el 
valor 4 por lo que el máximo de X que se podría obtener sería 
20 + 4 = 24, 

Establecemos, por consiguiente, una variable de ponderación WT 
que se calcula sustrayendo tres veces el número de preguntas de ca- 
da grupo (3*AD) del total de preguntas (NQ) y volviendo a añadir 
el número de preguntas del grupo AD: 


WT = NQ — G*AD) + AD 
Esto se expresa más sencillamente así: 


WT = NQ — (2*AD) 


10 LET <=0:; LET TR=0: LET HG6=3 
Zi LET SC=0: LET AD=N0-2: LET <uU 
=AD: LET MU=AD: LET DI=AD: LET WU 
T=WNL-I2xA AD) 

Zd0 LET A=FN R(AD) 

20 LET BE=FN RADA 

0 LET Á=FN ECSU) 

DO LET E=FN RS 

Ú LET A=FN ECMU> 

O LET E=FN RimMU>5 

O LET E=FN RcDI53+1 

O LET A=INT (FN RDIZIRE 


poro fs 


Ahora substituimos el valor fijo de 10 por la diferencia entre 
WTI y X. 


13 DEF FH Ex23=INT ¿RAHD*iWT-x35 
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Para empezar, WT = 24 y X = 4 por lo que se seleccionarán 
los números entre O y 19. Si se da una respuesta correcta, se reduce 
X a 3 y se seleccionan valores entre O y 20. Después de cuatro res- 
puestas correctas, X ya no cambiará para este tipo de preguntas ya 
que habrá llegado a cero y la línea será soslayada. Los últimos valores 
serán, por consiguiente, entre O y 22. Sin embargo, si la primera res- 
puesta es incorrecta, X se incrementa en 1 y la escala de números 
producidos se reduce igualmente en 1 (0 — 18). En el caso peor, 
X aumentará 20 veces hasta 24 y (WT — X) caerá a cero para A y B 
(¡Usted debe resolver este problema particular!). 


A continuación sigue el listado completo del programa para facili- 
tar la composición de los fragmentos que se han ido presentando a lo 
largo del capítulo. Se ha incorporado la línea 1015 para poder salir 
fácilmente del programa si se desea. 


10 LET xX=0: LET TR=0: == NQ=3 
2: LET SC=04: LET AD=NUY/S: LET Su 


=AD: LET MU=SAD: LET DI=AD: LET U 
T=NQ-CZAAD) 

15 DEF FN R¿xX2=INT  CRNDCUWT=X) 
) 

20 LET A=FN READ 

30 LET E=FN RA) 

40 1F AÁD>»O0 THEN  LET 5$%="+":* L 
ET C=A+E: G0 SUB 1000: LET AD=AD 
+ 15 

350 LET A=FN RXSsu) 

$0 LET E=FN RSU) 

Z¿Ó 1F SU>0 THEN  LET S$="- L 
ET C=A-E: GO SUBE 1000: LET sUu= sul 
+ IN 

30 LET A=FN RcmU> 

0 LET B=FN R(MU?> 

100 1F MU>0 THEN  LET Sé="x%*": L 
ET C=A*BE: GC SUB 1000: LET MU=HuU 
+1N 

110 LET E=FN RDI>+1 

120 LET A=INT (FN RIDIZI=E 

130 1F Dl>+0 THEN LET S$="/": L 
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ET C=A/B: GO SUB 1000: LET DI=DI 
+ IN 

140 IF AD=0 AND SU=0 AND MU=O0 A 
ND DI=0 THEN GO TO 140 

150 GO TO 15 

130 STOP 
1000 PRINT “A3S$;B¡"="; 

1010 INPUT "PON TU RESPUESTA: (0 
.5 $1 DESEAS TERMINAR): "; 
IP: LET TR=TR+1: LET NQ=NQ-1 
1015 IF IP=.5 THEN STOP 

1020 1F C=I1P THEN  LET IN=-1: PR 
INT 303"3"3" CORRECTO": LET SC=S 
C+1: GO TO 1040 

1030 LET IN=1: PRINT 1P,"3";," ER 
ROR, LA RESPUESTA co 
RRECTA ES ";C 

1040 PRIMT “"TU PUNTUACION ES DE 

"+50" PUNTOS, QUE CORRESPOND 
E A UN PORCENTAJE DE ACIERTOS D 
EL "¡INT ££SC4TR)X100>5" POR CIE 
MTO.": RETURN 
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La realización de un programa completo 
de Inteligencia Artificial 


En los capítulos anteriores hemos tratado, desde los primeros 
principios, los diversos aspectos de la Inteligencia Artificial. En este 
último vamos a relacionar entre sí muchas de las ideas de aquéllos 
en un solo programa completo. 

El programa «inteligente» original fue el famoso «ELIZA» que 
se escribió para establecer un determinado estilo de terapia psiquiá- 
trica. Nos hemos resistido a la tentación de seguir aquel ejemplo y 
hemos optado, en su lugar, por producir la sustitución por un típico 
vendedor de ordenadores. Este programa combina algunas ideas so- 
bre el proceso del lenguaje natural y de los sistemas expertos para 
llegar a un resultado que permite comprender las peticiones y hacer 
sugerencias que tienen en cuenta los requisitos solicitados y algunas 
realidades comerciales. 


la posibilidad de adaptar el programa a necesidades particulares 


Se ha incluido un número suficiente de palabras y valores para 
hacer el programa interesante pero puede adaptarse al gusto de cada 
uno añadiendo las ideas propias. (No nos hacemos responsables de 
los valores que se incluyen —que únicamente tienen fines demostra- 
tivos— ni de los criterios sobre determinadas máquinas expresados en 
cl programa que, por otra parte, se ponen con nombres simulados). El 
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programa, en realidad, resulta bastante complicado pero sigue los 
métodos descritos anteriormente en el libro. En la Tabla 10.1 se dan 
las variables principales. 

Tal como está el programa, cabe justamente en un Spectrum de 
16 K. (Si se dispone de más memoria no hay problemas y puede am- 
pliarse el programa si se desea). Sin embargo, ya que se consume 
hasta el último byte de memoria en la máquina de 16 K, puede ocu- 
rrir que el programa se detenga con el mensaje «4 Out of memory» 
(«memoria consumida») durante la comparación de las cadenas si las 
frases de entrada son largas. No es posible introducir un litro en un 
recipiente de medio, por lo que si se desea aplicar frases muy largas 
habrá que cortar por alguna parte (puede hacerse, por ejemplo, 
reduciendo el tamaño de las matrices poniendo menos caracterís- 
ticas; limítese el valor de FE en la línea 9999 a 16 y suprimanse los 
dos últimos elementos de las instrucciones DATA de las líneas 940 
y 1010). 


(Mota del T.: La versión traducida ha sido ejecutada y no requiere tanta memoria como da a entender el autor). 


Tabla 10.1. Principales Variables del Programa 


N$ cadena de entrada 

WI. longitud de palabra 

JS cadena de análisis 

I$ cadena del objeto a buscar (recogida de N$) 
SP puntero de búsqueda 

IT principio de la búsqueda 

PH número de la frase 

OP número de las diferentes preguntas preparadas 
R$ nombre de la característica analizada 

OS petición actual 

0) número de orden de la característica analizada 
CR tasa de coste analizada 

PR tasa de beneficio analizada 

NE beneficio total 

KO coste total 

R número de reglas 


RU marcador de la regla de actualización 
OB número de objetos o características que se analizan 


AJ número de adjetivos 

AV número de adverbios 

II número de verbos favorables 
DL número de verbos desfavorables 
NJ número de adjetivos negativos 


NV número de adverbios negativos 
HM número de adjetivos de barato y caro 
BB saldo bancario 


FE número de características 

CT número de precios de coste 

US número de sugerencias sobre el coste 
EX número de excusas 

HI número de sugerencias de precio alto 


LO número de sugerencias de precio bajo 

ID valor de los términos favorables / desfavorables 
NP factores negativos 

OF señalizador del objeto 

OM orden del objeto identificado 

DS lista de costes de los ordenadores 

R(N) regla de decisión 

I(N) regla de beneficio 

J(N) regla de costes 


El diálogo usuario-programa 


El método que sigue el programa es el de preguntar la opinión 
sobre cada posible característica una por una. La forma concreta de 
hacer la pregunta se escoge aleatoriamente entre una selección de 
frases. Téngase en cuenta que la palabra clave o la frase fundamental 
se inserta en la pregunta donde es necesario a plena concordancia 
gramatical (o casi plena). 

La respuesta entrada se examina detalladamente en busca de las 
palabras claves y la matriz de control se actualiza según los requi- 
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sitos pedidos. Un BEEP corto suena cada vez que se acude a la ruti- 
na de identificación (INSTR) (Línea 10) para que se sepa que el 
ordenador no se ha dormido cuando analiza una frase larga. Se 
presenta en pantalla la matriz de control para que pueda verse cómo 
se actualiza. La primera fila de valores es la regla de decisión, 
la segunda la de costes y la tercera la de beneficios. Muchas de 
las palabras claves se han truncado para que puedan igualmente 
identificarse los derivados de las mismas. 


la división de las palabras en clases diferentes 


La respuesta más sencilla es «SD» o «NO», que suma o resta 
una unidad al valor de la regla de la característica en cuestión. 
Si se menciona su nombre (GRAFICOS, por ejemplo) se añade otro 1 
«a la regla. Usando, además, un adjetivo o un adverbio positivo 
(favorable), también se incrementa, mientras que si son negativos 
(desfavorables), se produce una reducción. Separando las palabras en 
distintas clases se permite hacer más de un cambio de la regla al 
mismo tiempo. 


Asi: 
S] suma uno 
SIGRAFICOS suma dos 
SI SONIDO NECESARIO suma tres 
SI BUEN TECLADO NECESARIO suma cuatro 


Mientras que: 


NO resta uno 


NO NECESITO MEMORIA resta dos 
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La clasificación de los verbos 


Además, los verbos están agrupados en positivos (favorables) y 
negativos (desfavorables). Estos invierten la acción del resto de las 
palabras. 


Así: 
YO DETESTO LOS MICRODRIVES resta dos 
NO ME GUSTA EL SONIDO resta dos 
YO NO ODIO EL SONIDO suma dos 


Si aparece algo al principio de una frase, separado por una 
coma, se ignora lo que está delante de ella. 
Ejemplo: 


NO, SONIDO suma dos a la regla 
del sonido 


La función de la coma 


La excepción es cuando se incluyen «Y» o «PERO» en la oración 
con coma pues ambas partes actúan independientemente. 
Asi, si la pregunta es: 


DESEA USTED UNOS BUENOS GRAFICOS? 
y la respuesta es: 
NO, PERO SI UN BUEN BASIC 


se resta uno de las reglas de GRAFICOS y se añaden dos a la del 
BASIC. 

Si el programa no encuentra ninguna palabra clave en la expre- 
sión entrada, pedirá cortésmente que se repita nuevamente: 


PERDON, PERO NO LE ENTIENDO 
171 


Análisis secuencial de las características 


lil programa sólo puede analizar una característica cada vez por 
lo que si se intenta, por ejemplo, en pedir SONIDO y GRAFICOS 
al mismo tiempo, el ordenador replicará: 


POR FAVOR, CADA COSA A SU TIEMPO! 


Sin embargo, es posible hacer comentarios sobre una sola carac- 
terística distinta a la que se pregunta en esa Ocasión y estas entradas 
actualizarán la regla correspondiente (como en el ejemplo anterior 
del PERO). 


la toma de decisiones 


Además de la matriz de control hay otras dos que están relacio- 
nadas con ella. La primera de ¿stas es la de costes que da una indi- 
cación del correspondiente a la opción analizada, y la segunda es la 
du beneficio que orienta al vendedor sobre el esfuerzo que vale la 
pena realizar para vender la característica en cuestión. Los valores 
de estas dos matrices se producen al multiplicar el contenido del ele- 
mento de la matriz de control por los factores introducidos origina- 
rriiumente como datos en la línea 1010, expresando, por este orden: 
lrase que describe la característica, el coste y el beneficio. 

Después de cada entrada, el vendedor considera las consecuencias 
de las peticiones que se le han hecho. En primer lugar, investiga 
$1 la suma total del coste de todos los requisitos solicitados excede 
cl saldo bancario. En caso afirmativo, presenta en pantalla un men- 
sae seleccionado entre varios de carácter cáustico con respecto al 
valor del crédito. Por ejemplo: | 


(CREO QUE SE ESTA SALIENDO DE SUS POSIBILIDADES 


Vambién analiza el beneficio que puede conseguir con esta venta 
tal como va por el momento. Si tal beneficio se reduce demasiado, 
cimpezará a perder interes y ofrecerá comentarios como éste: 
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TENGO UNA CITA URGENTE 
O 
(CERRAMOS DENTRO DE CINCO MINUTOS 


Al mismo tiempo, tratará de ayudar al comprador estableciendo 
cuál de los ordenadores se adapta a los requisitos solicitados. Para 
esto crea una lista en la que se comparan dos valores aplicados en 
principio a la característica en cuestión en la descripción de cada 
ordenador, indicando el valor atribuido. El formato de las descrip- 
ciones es: 


(nombre, valor de la característica 1, valor de la característica 2, 
valor de la característica 3, etc.). 


El ordenador mejor valorado se seleccionará siempre el primero 
pero, si es posible, se seleccionarán tres máquinas al menos (posible- 
mente con los promedios más bajos) y la elección final se efectuará 
de entre estas tres. Se seleccionará (aleatoriamente) para ser mencio- 
nado el más caro o.el más barato de los ordenadores, por ejemplo: 
SI DESEA UN LUJO CONSIDERE EL ORDENADOR... 

SI PUEDE PAGARLO QUE LE PARECE EL ORDENADOR... 


Si sólo hay una máquina que se adapta a las posibilidades del 
comprador, el programa dirá: 


SU UNICA OPCION ES EL... 
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ELEGIR PALABRAS 
PARA LAS 


INICIALIZAR 
MATRICES 


CONJUGAR Y 


PREGUNTAS AÑADIR ESPACIO 


AÑADIR ESPACIO 
Y REINICIALIZAR 
VARIABLES 


INTRODUCIR 
RESPUESTA 


IMPRIMIR 
PREGUNTA 


si ¿HAY «Yo 


O «PERO»? 


SUSTRACCION 
DE LA REGLA 


CORTE DELANTE 
DE COMA 


SUMA A LA REGLA 


<> 
<= 


RU - RU+1 
| 
NO 


¿HAY DO- 
BLE NEGACION? 


NO DECREMENTO DE RU 
L 


D» - 


Si 


INCREMENTO DE RU 


Dm. 1 


(1) 
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(1) 


¿VERBOS E] * 
FAVORABLES? LD = 1D”1 


NO 


¿VERBOS 
DESFAVORA- 
BLES? 


Si 


LO =10*_1 


NO 
si RU = RU+LD 
¿OBJETO? OF = N 
OM = OM + 1 
NO 
¿ADVERBIO? Do RU = RU+LD 
NO 


LO =1L0*_1 
RU = RU+LD 


¿ADJETIVO 
DESFAVORA= 
BLE? 


«BARATO» 


(2) 


«PERDON 
NO ENTIENDO» 


«CADA COSA 
A SU TIEMPO» 


<> 
NO 

De 
NO 


¿ 
ARACTERISTICA? 


ACTUALIZAR 
REGLA 


ACTUALIZAR 
COSTE Y 
BENEFICIO 

TOTALES 


ACTUALIZAR 
REGLA OBJETO 


Si 


¿TP BAJO? 


NO 


ESTADO 
DEL CREDITO 
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a: j 
= N+ SUMAR N A P9 


4-) 


(4) 


PS = VAL(P6(2)) ACTUALI 
CT = VAL(DSIPS)) TS rd 


ACTUALIZAR 
BS+LO 


«OPCION UNICA» 


«PRECIO ALTO» 


SELECCIONAR 
NUMERO 
ALEATORIO 


5) 
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1/8 


EL VENDEDOR 


l_ REM_RUTINAS PARA LOS _SIGNOS 
INICIALES DE ADMIRACION E INTER 


ROGACION (GRAFICOS DEL USUARIO) 
3 RESTORE 3: FOR I=1 TO 4: RE 
4D Ar POKE USR "A"+1,4: NEXT 1: 
DATA 4,0,4,4,4,4 
4 PRINT 
S RESTORE 5: FOR N=1 TO 7: RE 
AD B: POKE USR "1"+N,B: NEXT ON: 
DATA 2,0,2,14,16,17,14 
8 GO TO 9999 
10 BEEF .01,0: LET WL=LEN (J$) 
FOR l=FT TO LEN C(I$3-WL+1: 1F 
1801 TO CI+WL-1)3=J% THEN LETS 
=1: RETURN 
20 NEXT 1: LET SP=0: RETURN 

940 DATA "BASIC", "GRAFICO","SON 
IDO", "TECLADO", "FUNCION", "MEMORI 
a", "CINTA MAGNETICA", "MICRODRIWE 
" "DISCO", "PROGRAMA", "CARTUCHO", 
"JOYSTICK", "ENSAMBLADOR", "CENTRO 
NICS","RS232", "EXPANSION", "RED L 
OCAL","1á BITS" 

950 DATA "BUEN", "EXCELENTE","SU 
PERIOR","MAGMIFIC", "BUENA CLASE" 
y "RAPID", "EFICIENTE", "ESENCIAL", 
"MUCH", "BIEN", "NATURAL" 

955 DATA "REAL", "MUY", "FRECUENT 
E" "NECESARI", "FIABLE" 

980 DATA "MAL", "TRASTO", "POBRE" 
S"LENT", "INEFICIENTE", "POC", "EL 
MENOS", "LA MENOS", "PEOR" 

720 DATA "NUNCA" ," INFRECUENTE" 

970 DATA "QUIERO", "DESE","NECES 
IT", "GUSTA", "QUER" 

1000 DATA "0DI","DETEST","ABORRE 
" "DESPRECI" 
1010 DATA "£UN BUEN BASIC ",5,2, 


"JUNOS BUENOS GRAFICOS ",7,2,"E 
L SONIDO ",6,2,"£UN BUEM TECLADO 
",9,2,"ILAS TECLAS DE FUNCION " 
21,5, "UNA GRAN MEMORIA ",3,6,"4 
UN INTERFACE PARA CINTA ",2,2,"3 
UNOS BUENOS MICRODRIVES ",2,4,"2 
LOS DISCOS ",5,8,"IMUCHOS PROG 
MAS ",0,>,"£UN PORT PARA CARTUCH 
OS ",1,8,"£UN PORT PARA JOYSTICK 
11,7,"2£UN ENSAMBLADOR ",2,1,"8 
UN PORT CENTRONICS ",2,5, "UN RS 
232 ",2,6,"£UN EQUIPO EXPANDIBLE 
",2,5,"£UN EQUIFO CAPAZ DE FORM 
AR REDES ",23,4,"£«UNA CPU DE 14 BE 
173 ",1,7? 
1020 REM LA LETRA "1" QUE AMTECE 
DE CADA DATO EM LA LINEA 1030 CO 
RRESPONDE AL SIGMO DE INTERROGA 
CION Y SE Há DE PULSAR EN MODO G 
RAFICO 
1025 REM XRREXRERERIEIEAIEIEIAARAIRAAE 
1030 DATA "I LE GUSTARIA","I DES 
EARIA","I QUE LE PARECE","I MECE 
SITA USTED","I ¿*IMPORTANTE" 
1032 DATA "BARAT","NO COSTOS" 
1033 DATA "CAR","COsToS" 
1100 DATA "JNC PC","KNACT SERIOU 
S", "CLEARSIN MT", "ACHRON ILLUSIO 
N" "BANANA IIE","S] ELITE","COLE 
CTOVISION CABBAGE", "CANDY COLOUR 
ED COMPUTER","COMANDEAR $4" ,"ATR 
IA £006T" 


1110 DATA $,6,9,8,2,8,5,7,2,1 
1120 DATA 28,7,7,7,5,8,5,6,8,8 
1130 DATA 53,5,9,6,2,8,5,4,7,8 
1140 DATA 9,8,7,5,5,7,5,2,7,5 
1150 DATÁ 8,8,7,0,0,7,2,0,7,0 
1160 DATA 3,8,8,3,4,8,5,2,6,2 
1170 DATÁ 8,8,8,7,6,8,5,7,5,5 
1180 DATA 0,0,72,0,0,0,5,0,0,0 
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1190 DATA ?2,8,9,5,3,7,5,9,6,7 
1200 DATA 9,8,6,5,0,2,1,7,9,7 
1210 DATA 7,0,7,0,3,7,7,8,6,7 
1220 DATA 7,0,7,0,5,94,7,7,7,7 
1230 DATA 0,0,0,6,0,0,0,0,0,0 
1240 DATA 7,7,7,0,0,0,0,0,0,0 
1250 DATA 4,6,6,0,6,6,6,6,2,6 
1240 DATA 8,2,7,4,7,0,5,3,2,6 
1270 DATA 8,8,?,1,0,0,0,0,0,0 
1280 DATA ?,?,7,0,0,0,9,0,0,0 
1290 DATA ?,9,9,0,0,0,0,0,0,0 
1300 DATA 9,7,1,2,4,0,0,6,6,5 
1350 DATA 10,9,7,3,8,4,6,5,2,1 
1320 DATA "CREO QUE SE ESTA SALI 


ENDO DE SUS POSIBILIDADES", "ESTA 
ESPECIFICACIOÓN SE SÁLE DE SU LI 
MITE DE CREDITO","MNO CREC QUE PU 
EDA PAGARSE TALES LUJOS" 
1900 DATA "PERDANEME,PERO OIGO Ss 
ONAR EL TELEFONO" ,"TENGO UNA EIT 
A URGENTE" ,"CERRAMOS DENTRO DE € 
INCO MINUTOS" 
1490 DATA "SI FUEDE PÁGARLO CUE 
LE PÁRECE EL URDENADOR","UNA Ell 
ENA COMPRÁ ES EL ORDENADOR" 
1950 DATA *SI DESEA UNA BUENA MÁ 
QUINA DEBE PRUBAÁR EL URDEN 
ADOR", "ACTUALMENTE NO SE PUEDE 5 
UPERÁR EL ORDLENADOR",*"SI DESEA U 
N LUJO CONSIDERE EL CRDENADUR* 
¿000 LET PH=IMT RND*UOP3+1: REST 
ORE 16307 FOR. .N=1 TO PH: READ R$ 
MEXT ON 
2100 LET I$=R$: LET Jl$=".-": LET 
FT=1: GÓ SUB 10: RESTORE 1010: F 
OR N=1 TO Q: READ E0%,ER,PR: NEXT 
Ñ 
2200 IF SP<20 THEN  1F Gsrii="g" 
THEN  LET Ré$=kR$t¿ TO SF-1+"SON* 
HFRÍELSP TO 3+"S” 


3000 IF SP<2>0b THEN  1F Qét17="2:" 


THEN  LET Ré$=R$í% TO SP-1)+"ES"+ 
R$(SP TO > 

4000 LET I$=R$: LET Jé$="x": LET 
FT=1: GO SUB 10: 1F SP=0 THEN 6 
O TO 4400 

4200 LET R$=R$( TO SP-23+" "+08( 
2 TO >+R$(SP+1 TO >: GO TO 5000 
4900 LET Ré=R$+" "+02 TO > 
5000 PRINT : PRINT : PRINT R$;"? 
": INPUT N$: PRINT Ns 

5010 LET LO=0: LET TC=0: LET TP= 
0: LET LD=1: LET OF=0: LET FS=1: 
LET NP=0: LET RU=0: LET M=0: LE 

T OM=0: LET Si=0: LET S52=0 

5020 LET I$=M$:; LET Jé$=",": LET 
FT=1: GO SUB 10: LET CmM=SP 

5030 1F CM=0 THEN GO TO 5110 
5040 LET I$=N$: LET Jé$="Y": LET 
FT=1: GO SUB 10: LET Si=<P 

5050 LET I$=N*$: LET J$="PERO": L 
ET FT=1: GO SUB 10: LET S2=3P 
5060 IF S1+82=0 THEN 60 TO 5100 
5070 1F N$% TO 23<>"NO0" THEN GO 
TO 5090 

5080 LET ROMO=RC0M 1: LET 1(0)=1 
(Q9)-CR: LET J(0)= ICO PR: 60 TO 
3100 

5070 LET R(O0)=RCOO 41d LET O 1205=1 
(Q09)+CR: LET J(0)=JC0)4PR 

5100 LET Né=N$cCM TO > 

5110 LET Ié=N$: LET Jé="SI": LET 
FT=FS: GO SUB 10 

5120 IF SP>O THEN LET RU=RU+1: 
LET LD=1: LET M=1: LET FS=SP+1: 
GO TO 5110 * 

5120 LET I$=N$%: LET Jé="NO": LET 
FT=FS: GO SUB 10 

5140 1F SP>»O THEN LET LD=-1: LE 

T M=1: LET FS=SP+1: LET NP=NP+1: 
GO TO 5130 

5180 RESTORE 1000: FOR N=0 TO DL 
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3170 


LET I$=N*$: READ J1+$: LET FT= 


1: GO SUB 10 


3200 

LET 
3210 
S$000 
5010 


1: 60 SUE 10: 


IF SP>0 THEN LET LD=LD*+-1: 
M=1: LET NP=MP+ 1 

MEXT N 

RESTORE 970: FOR N=0 TO LI 
LET I$=N$: READ J$%: LET FT= 
IF SP=ú THEN Gu T 


O ¿das30 

ó020 LET LD=LD*1: LET M=1 

$030 NEXT N 

6040 IF NP=0 THEN (69 TO ¿100 
$050 IF INT (NP/2>=NP/2 THEN LE 
T RU=RU+1: LET LD=1: Ga Ta ¿104 
$060 LET RU=RU-1: LET LOD=-1 

6100 RESTORE 990: FOR N=1 TO OB 
6110 LET I$=N$: READ JI$: LET FT= 
1: GO SUB 10 | 

£120 IF SP>0 THEN  LET RU=RU+LD: 


LET 
$130 
ó6zu0O 
Al 
5210 


1: GO SUB 10: 


OF=N: LET M=1: LET UM=0M+1 
NEXT N 
RESTORE 250: FOR N=0 TO A+ 


LET I$=H$: READ 1%: LET FT= 
IF SP=0 THEN 0 T 


O 4230 


S2zzU 
S$230 
$300 
HJ 
$310 
1S 
¡A 
5320 
LET 
$3.30 
$400 
$310 


1: GO SUB 10: 1F SP=0 THEN 


GO SUB 10: 
330 


LET RU=RU+LD: LET M=1 
NEXT N 
RESTORE 260: FOR N=0 TO Nu+ 


LET I$=N$: READ J$%: LET FT= 
IF SP=0 THEN GO T 


LET LD=LD*-1: LET RU=RU+LD: 
M=1 

MEXT N 

RESTORE 1032: FOR N=0 TO HM 
LET I$=NS$: READ J$: LET FT= 
GO T 


ú $440 


£412 


REM HELL REL ERRE 


$414 REM LA LETRÁ "A" QUE PRECE 
DE A BARATO EN LAS LINEAS 6420 Y 
$430 ES EL SIGNO DE ÁDMIRACION 
DE ENTRADA Y SE HÁ DE PULSAR El 
MODO GRAFICO 

¿416 REM RAEE 
£420 LET XxX=N:+ IF xXx<2 THEN PRI 
NT “"AABARATO Y MALO ES TODO UNo 


11%: GO TO 400 
$430 PRINT “*"AMAS BIEN CÁARO!": 6 
O TO $450 


$440 NEXT N 
$500 IF M<1 THEN PRINT "PERDON, 
PERO NO LE ENTIENDO": GO TO 2000 
$510 IF 0M>1 THEN PRINT "APOR F 
AVOR,CADA COSA A SU TIEMPO!": GO 
TO 2000 
£520 1F 0F>0 THEN  LET RC£OF)=RIO 
F)+RUS LET ICOF)=ICO0F>+CCREARU) 
LET JCOF)=ICOF)+CPRERU) E GO TO 4 
550 
£540 LET R£O0)=RIGD+RU: LET 1£0)= 
ICQ0)+CCRARU) 2 LET J(0D=JIC004+CPRE 
RU) 
£545 PRINT 
£550 FOR N=1 TO R: PRINT TAB <N- 
1)>*3¡RON) 3" "32 LET TC=TC+ICN>D5 
LET TP=TP+J(M): NEXT Ni: PRINT O: 
PRINT : FOR N=1 TO R:z PRINT TAB 
(N=19%*3310N9 3" "32 NEXT ON: PRINT 
: PRINT O: FOR N=1 TO R: PRINT T 
AB (N-1)*33J00)3" "5: NEXT N: PR 
INT 
£600 1F TC>BB THEN  LET PT=RND=*C 
S+0.5: RESTORE 12370: FOR N=0 TO 
PT: READ Yé: NEXT ON: PRINT Y3 
¿610 IF TP<O THEN  LET Tx=RNDx*Ex 
+0.5: RESTORE 1400: FOR N=0 TO T 
X: READ X$: NEXT N:z PRINT “x$ 
£820 1F TC>BB THEN LET PT=RND*C 
S: RESTORE 12920: FOR N=0 TO PT: 


183 


184 


READ Yé: NEXT N: PRINT Y+$ 

7000 LET P$="": FOR X=2* TO O STE 
P -1: RESTORE 1100+(0U*103: FOR N 

=1 TO CO: READ F: IF F-RQI=X TH 
EN —LET P$=P$+STRS$ (NN) 

010 NEXT N: IF LEN (Ps<=3 THEN 
NEXT x 

7200 LET TS=0: LET BS=11: FOR ¿£= 
il TO LEN (P$>: LET PS=VAL (P$(Z2) 
31 LET CT=VÁAL (DSLPSI23 1F CT:TS 
THEN  LET TS=CT: LET HI=PS 

¿220 IF CTXBS THEN LET BS=CT: L 
ET LG=PS 

2230 NEXT 2: RESTORE 1100: 1F HI] 

=LO THEN  PRINT "SU UNICA OPCION 
ES EL": FOR 2¿=1 TO HI: READ ¿%: 
NEXT 2: PRINT 2%: PRINT *“"PULS 

AR PARA SEGUIR": PAUSE 06: CELS | 

60 TO 2000 

7250 LET SESINT (CRNDe33+1): LET 
SL=INT (RIND*33+1: IF SE=2 THEN 
GO TO 220 

¿280 RESTORE 1450: FOR ¿=1 TO SL 
: READ 2%: NEXT Z: PRINT "2$,: R 

ESTORE 1100: FOR ¿=1 TE HI: READ 
¿$: NEXT Z: PRINT ¿$%: PRINT *** 

PULSE PARA SEGUIR": PAUSE (1: CLS 
: 60 TO 2000 

¿274 RESTORE 19490: FOR Z=1 TO SL 
: READ 2$:3 NEXT 2: PRINT *“¿%$,: R 

ESTORE 1106: FOR Z¿=1 TO LO: READ 
2$: NEXT 2: PRINT 2%: PRINT **?* 
PULSE PARA SEGUIR": PAUSE 6: CLS 


7000 LET G=G+1: IF Q<FE+1 THEN 

Go TO 2000 

2010 STOP 

79779 LET FE=18: LET R=FE: LET UB 

=R-1: LET Ll=3: LET DL=3: LET ÁJ 

=8: LET Al=4: LET NI=8S: LET NU=1] 
LET HM=3: LET GP=5: LET BB=50: 


LET CO=>2: LET CT=?: LET CS=2: L 
ET ExX=2: LET Hl=2: LET LO=2: LET 
G=1: DIM RER23: DIM IX2R23: DIM J£ 
R>3: LET Dé="28642/359419": G0 TO 2 
000 


Comentarios 


Línea 9999: Contiene la rutina de iniciación de variables. 

Líneas 10—20: Contiene la rutina de identificación (INSTR). 

Línea 940: Contiene las palabras claves. 

Línea 950: Contiene adjetivos. 

Línea 955: Contiene adverbios. 

Línea 960: Contiene adjetivos negativos (de rechazo). 

Línea 980: Contiene adverbios negativos. 

Línea 990: Contiene verbos favorables. 

Línea 1000: Contiene verbos desfavorables. 

Línea 1010: Contiene palabras para las preguntas (características) 
con los valores de coste y beneficio. 

Línea 1030: Contiene frases interrogativas. 

Línea 1032: Contiene palabras para expresiones de coste bajo. 

Línea 1033: Contiene palabras para expresiones de coste alto. 

Línea 1100: Contiene nombres de ordenadores (simulados). 

Líneas 1110—1350: Contiene valores de las características de cada 
ordenador. 

Línea 1390: Contiene mensajes sobre el crédito del comprador. 

Línea 1400: Contiene excusas. 

Línea 1440: Contiene mensajes de precios bajos. 

Línea 1450: Contiene mensajes de precios elevados. 

Líneas 2000—-4400: Selecciona las palabras que se van a utilizar en la 
pregunta siguiente y prepara una correcta concordancia 
gramatical. 

Líneas 5000—-5010: Presenta la pregunta y recoge la respuesta entra- 
da (INPUT); restablece variables. 

Líneas 5020—-5030: Busca una coma. 
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l incas S040—5060: Busca las conjunciones «Y» y «PERO», y si no 
las encuentra, el programa salta a la línea 5100. 

lineas 5070—5080: Actualiza negativamente la regla analizada si se 
encuentra «Y» o «PERO» y la primera palabra es «NO». 

lLinca SO90: Actualiza positivamente la regla analizada si se encuentra 
«Y» o «PERO» y la primera palabra no es «NO». 

l inca 5100: Elimina todo lo que precede a la coma. 

lineas 5110—5170: Busca el «SD», el «NO» y el N”T actualiza ade- 

cuadamente la regla de decisión. 

líneas 5180—5210: Busca verbos desfavorables. 

líneas 6000—6030: Busca verbos favorables. 

línea 6040: Comprueba que no haya negaciones. 

l inca 6050: Comprueba si hay doble negación. 

l incas 6100—6330: Busca los objetos, adjetivos y adverbios. 

líneas 6400—6440: Busca identidades con palabras claves de precios 
altos y bajos. 

l inca 6500: Comprueba si no ha habido identidad y lo indica con el 
mensaje correspondiente. 

l ínea 6510: Comprueba si hay más de un objeto. 

l incas 6520—6540: Actualiza la regla analizada, u otra, si el objeto 
se adapta a la pregunta que se analiza. 

l inca 6550: Presenta en pantalla las reglas y actualiza los valores de 
coste y de beneficio totales. 

Il ínca 6600: Presenta en pantalla una advertencia si el gasto es de- 
masiado alto. 

l inca 6610: Presenta una excusa para determinar si el beneficio parece 
demasiado bajo. 

l incas 7000—7010: Busca los ordenadores que se adaptan a los requi- 
sitos del comprador. 

l incas 7200—7210: Escoge los ordenadores de mayor y menor precio 
que se adaptan a la especificación. 

linea 7220: Comprueba si sólo se ha seleccionado un ordenador. 

l incas 7250—7290: Presenta en pantalla el nombre del ordenador 
más caro o el del más barato. 

Il nica 9000: Actualiza la característica que se va a analizar y realiza 
el retorno para otra respuesta de entrada. 
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El lector ante sus creaciones en Inteligencia Artificial 


La Inteligencia Artificial es un tema fascinante y confiamos haber 
proporcionado suficiente información para que el lector pueda iniciar 
sus propios experimentos en este área. Verdaderamente hemos disfru- 
tado con nuestras propias exploraciones mientras preparábamos el 
libro pero hemos empezado a preguntarnos cuánto tiempo pasará 
antes que alguien se ingenie un programa de un sistema experto 
capaz de escribir obras completas. 
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